OFFSET
1,2
COMMENTS
A120492(n) = 1 + Sum_{k=1..n} Prime(k)^(n-1).
Pi(A120329)<=10^n: 1, 5, 8, 12, 29, 55, ..., . - Robert G. Wilson v, Aug 20 2006
MATHEMATICA
fQ[n_] := IntegerQ[(1 + Sum[ PowerMod[ Prime[k], n - 1, n], {k, n}])/n]; Do[ If[ !PrimeQ@n && fQ@n, Print@n], {n, 52632}] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 16 2006
EXTENSIONS
Edited and extended, a(13) - a(43), by Robert G. Wilson v, Aug 20 2006
STATUS
approved