OFFSET
1,1
LINKS
Hans Havermann, Table of n, a(n) for n = 1..10000
MATHEMATICA
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; PrimeExponents[n_] := Flatten[ Table[ #[[2]], {1}] & /@ FactorInteger[n]]; p = q = 2; l = {}; Do[q = NextPrim[p]; If[ Apply[ GCD, PrimeExponents[p + q]] > 1, AppendTo[l, p]]; p = q, {n, 2, 13000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 24 2004
STATUS
approved