OFFSET
1,1
COMMENTS
Corresponding n's are in A107605.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_] := Prime[n] + n; Select[f /@ Range[10^4], ! GCD @@ Last /@ FactorInteger[ # ] == 1 &] (* Ray Chandler, May 21 2005 *)
perfPQ[n_]:=GCD@@FactorInteger[n][[All, 2]]>1; Select[Table[Prime[n]+n, {n, 10000}], perfPQ] (* Harvey P. Dale, Jan 28 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 17 2005
EXTENSIONS
Extended by Ray Chandler and Robert G. Wilson v, May 21 2005
STATUS
approved