OFFSET
1,1
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..71
EXAMPLE
3+5=8, 3+5+17=25, 3+5+17+103=128 are perfect powers, i.e., in A007504.
MATHEMATICA
fQ[n_] := GCD @@ Last /@ FactorInteger@n > 1; p = sp = 3; lst = {3}; While[p < 10^9, If[ fQ[sp + p], AppendTo[lst, p]; Print@p; sp = sp + p]; p = NextPrime@p]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Mar 28 2010
EXTENSIONS
Edited and extended by R. J. Mathar, Mar 31 2010
Edited, corrected and extended by Robert G. Wilson v, Apr 20 2010
STATUS
approved