A114873 Numbers representable in exactly one way as (p-1)p^k (where p is a prime and k>=0), in ascending order.
1, 8, 10, 12, 20, 22, 28, 30, 32, 36, 40, 46, 52, 54, 58, 60, 64, 66, 70, 72, 78, 82, 88, 96, 102, 106, 108, 110, 112, 126, 128, 130, 136, 138, 148, 150, 166, 172, 178, 180, 190, 192, 196, 198, 210, 222, 226, 228, 232, 238, 240, 250, 262, 268, 270, 272, 276, 280
Offset: 1
Keywords
Examples
(2-1)*2^3 is the only representation of 8 in the required form.
Programs
-
Mathematica
s = Split@ Sort@ Flatten@ Table[(Prime[n] - 1)Prime[n]^k, {n, 60}, {k, 0, 6}]; Take[Union@ Flatten@ Select[s, Length@# == 1 &], 80] (* Robert G. Wilson v *)
Extensions
More terms from Robert G. Wilson v, Jan 05 2006