OFFSET
1,2
COMMENTS
Also the first differences of A137354.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..70
MATHEMATICA
fQ[n_] := GCD @@ Last /@ FactorInteger@n > 1; p = 3; sp = 2; lst = {2}; While[p < 10^9, If[ fQ[sp + p], AppendTo[lst, p]; Print@p; sp = sp + p]; p = NextPrime@p]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Mar 07 2008
EXTENSIONS
Edited and extended by Robert G. Wilson v, Apr 20 2010
STATUS
approved