OFFSET
2,1
EXAMPLE
MATHEMATICA
nn=20; R=Table[0, {nn}]; s=0; Do[If[PrimeQ[k], s++]; If[PrimeQ[k/2], s--]; If[s<nn, R[[s+1]]=k], {k, Prime[3*nn]}]; R=R+1; t=Table[0, {nn}]; found=1; n=2; While[found < nn, n++; d=Divisors[n]; Do[If[i <= nn && d[[i]] == Part[R, i] && t[[i]]==0, t[[i]]=n; found++], {i, Length[d]}]]; Rest[t] (* Program from T. D. Noe adapted for this sequence - see A104272 and A221647 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Dec 18 2013
STATUS
approved