OFFSET
1,2
COMMENTS
This is also the index of the first occurrence of n in A156642.
LINKS
Lei Zhou, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
goal = 56; a = {}; Do[AppendTo[a, 0], {n, 1, goal}]; found = 0; k = 0; While[found < goal, k++; m = 4*k + 2; p1 = m + 1; ct = 0;
While[p1 = p1 - 4; p2 = m - p1; p1 >= p2, If[PrimeQ[p1] && PrimeQ[p2], ct++]]; If[ct <= goal, If[a[[ct]] == 0, a[[ct]] = k; found++]]]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Lei Zhou, Mar 19 2013
STATUS
approved