OFFSET
1,2
COMMENTS
a(p) = p if p is a prime. a(4) = 2 as among 8, 10,12,14, there are two multiples of 4.
PROG
(PARI) S=Set(); for(n=2, 100, k=0; m=1; s=0; while(k<n, m++; if(!setsearch(S, m)&&gcd(m, n)>1, S=setunion(S, [m]); k++; if(m%n==0, s++))); print1(" ", s)) (Alekseyev)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 01 2004
EXTENSIONS
More terms from Max Alekseyev, Jun 30 2005
STATUS
approved