OFFSET
1,1
EXAMPLE
It is easy to check there is no prime p with 14=(p-1)*p^k and k>=0.
MATHEMATICA
s = Split@ Sort@ Flatten@ Table[(Prime[n] - 1)Prime[n]^k, {n, 60}, {k, 0, 7}]; Complement[ 2Range@116, Take[Union@ Flatten@ s, {2, 58}]] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Franz Vrabec, Jan 03 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jan 05 2006
STATUS
approved