OFFSET
1,6
COMMENTS
LINKS
Robert Price, Table of n, a(n) for n = 1..10000
MATHEMATICA
np[n_]:= If[n==0, 0, (i=Prime[n]+1; j=Prime[n]^(1+1/n); Length[Select[Range[i, j], PrimeQ]])]; a1[n_]:= (For[m=1, m<=n-1&& np[n-m] != m, m++]; m); a2[k_]:= If[c=a1[k]; c==k, 0, c]; a[n_]:= If[a2[n]==0, 0, For[r=a2[n], np[n-r]==r, r++]; r-1]; Table[a[k], {k, 2, 90}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Farideh Firoozbakht, Oct 24 2014
STATUS
approved