A055393 Sum of a square and a nonnegative cube in more than one way.

1, 9, 17, 36, 64, 65, 89, 100, 108, 129, 145, 196, 225, 233, 252, 289, 297, 316, 388, 441, 449, 464, 505, 512, 537, 548, 576, 577, 593, 633, 729, 730, 737, 745, 784, 792, 793, 801, 841, 873, 1000, 1025, 1088, 1090, 1116, 1225, 1289, 1296, 1304, 1305, 1367

Offset

1,2

Links

T. D. Noe, Table of n, a(n) for n = 1..10000

Example

a(12) = 225 since 225 = 6^3 + 3^2 = 5^3 + 10^2 = 0^3 + 15^2.

Mathematica

nn = 2000; t = Table[0, {nn}]; Do[n = i^2 + j^3; If[0 < n <= nn, t[[n]]++], {i, 0, Sqrt[nn]}, {j, 0, nn^(1/3)}]; Flatten[Position[t, _?(# > 1 &)]] (* T. D. Noe, Dec 08 2012 *)

Crossrefs

Cf. A022549, A055394.

Sequence in context: A173788 A097478 A147026 * A147082 A145941 A245542

Adjacent sequences: A055390 A055391 A055392 * A055394 A055395 A055396

Keyword

nice,nonn

Author

Henry Bottomley, May 12 2000

Extensions

Extended by T. D. Noe, Dec 08 2012

Status

approved