OFFSET
1,1
EXAMPLE
MATHEMATICA
aim = 32; a = Table[0, {i, 1, aim}]; zeros = aim; i = 2; While[i++; p = Prime[i]; ct = 0; Do[If[(PrimeQ[p - j]) && (PrimeQ[p + j]), f = Last[FactorInteger[j]][[1]]; If[f <= 5, ct++]], {j, 2, p, 2}]; If[(ct <= aim) && (a[[ct]] == 0), a[[ct]] = i; zeros--; zeros > 0]; a
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
Lei Zhou, Feb 07 2013
STATUS
approved