A114872 Even numbers not representable as (p-1)p^k (where p is a prime and k>=0) in ascending order.
14, 24, 26, 34, 38, 44, 48, 50, 56, 62, 68, 74, 76, 80, 84, 86, 90, 92, 94, 98, 104, 114, 116, 118, 120, 122, 124, 132, 134, 140, 142, 144, 146, 152, 154, 158, 160, 164, 168, 170, 174, 176, 182, 184, 186, 188, 194, 200, 202, 204, 206, 208, 212, 214, 216, 218
Offset: 1
Keywords
Examples
It is easy to check there is no prime p with 14=(p-1)*p^k and k>=0.
Crossrefs
Cf. A114871.
Programs
-
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 *)
Extensions
More terms from Robert G. Wilson v, Jan 05 2006