A122731 Primes that are the sum of 7 positive cubes.
7, 47, 59, 61, 73, 103, 113, 131, 137, 151, 157, 163, 173, 181, 197, 199, 211, 223, 227, 229, 241, 257, 263, 269, 271, 281, 283, 307, 311, 313, 337, 347, 349, 353, 359, 367, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 449, 457, 461, 463, 467, 479, 487
Offset: 1
Examples
a(1) = 7 = 1^3 + 1^3 + 1^3 + 1^3 + 1^3 + 1^3 + 1^3. a(4) = 61 = 1^3 + 1^3 + 2^3 + 2^3 + 2^3 + 2^3 + 3^3.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
nn=500; lim = Floor[(nn-6)^(1/3)]; Select[Union[Total /@ Tuples[Range[lim]^3, {7}]], # <= nn && PrimeQ[#] &] (* Harvey P. Dale, Mar 13 2011 *)
Extensions
More terms from R. J. Mathar, Jun 13 2007
Comments