OFFSET
1,1
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..10000
FORMULA
a(n) <= A186945(n).
MATHEMATICA
a000961Q[n_]:=(Length[FactorInteger[n]]==1) && IntegerQ[n]; nn=99; t=Table[0, {nn+1}]; s=0; Do[If[a000961Q[k], s++]; If[a000961Q[k/2], s--]; If[s<=nn && t[[s+1]]==0, t[[s+1]]=k], {k, 2, Prime[3*nn]}]; Prepend[Rest[t], 2] (* after T. D. Noe's code at A080359 *) (* Peter J. C. Moses, Sep 11 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Aug 30 2013
EXTENSIONS
More terms from Peter J. C. Moses, Aug 30 2013
STATUS
approved