OFFSET
1,1
LINKS
Lei Zhou, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
n = 1; found = 0; s = {}; target = 58; Do[AppendTo[s, 0], {i, 1, target}]; While[found < target, n++; ct = 0; Do[If[f1 = FactorInteger[i]; l1 = Length[f1]; If[f1[[1, 1]] == 2, l1--]; f2 = FactorInteger[n - i]; l2 = Length[f2]; If[f2[[1, 1]] == 2, l2--]; (l1 <= 1) && (l2 <= 1), ct++], {i, 1, Floor[n/2]}]; If[ct <= target, If[s[[ct]] == 0, s[[ct]] = n; found++]]]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Lei Zhou, Feb 21 2014
STATUS
approved