OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = Min{x; A085343(x) = n}.
PROG
(PARI) s(n) = my(f = factor(n)); primepi(sigma(f)) - primepi(eulerphi(f));
list(len) = {my(v = vector(len), k = 1, c = 0, i); while(c < len, i = s(k); if(i > 0 && i <= len && v[i] == 0, c++; v[i] = k); k++); v; } \\ Amiram Eldar, Dec 20 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 10 2003
STATUS
approved