%I #6 Oct 31 2013 12:17:37
%S 14,24,26,34,38,44,48,50,56,62,68,74,76,80,84,86,90,92,94,98,104,114,
%T 116,118,120,122,124,132,134,140,142,144,146,152,154,158,160,164,168,
%U 170,174,176,182,184,186,188,194,200,202,204,206,208,212,214,216,218
%N Even numbers not representable as (p-1)p^k (where p is a prime and k>=0) in ascending order.
%e It is easy to check there is no prime p with 14=(p-1)*p^k and k>=0.
%t 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_ *)
%Y Cf. A114871.
%K nonn
%O 1,1
%A _Franz Vrabec_, Jan 03 2006
%E More terms from _Robert G. Wilson v_, Jan 05 2006