A062840 Palindromes of the form k^3 + 1.

0, 1, 2, 9, 1001, 29792, 1000001, 1000000001, 1000000000001, 1000000000000001, 1000000000000000001, 1000000000000000000001, 1000000000000000000000001, 1000000000000000000000000001, 1000000000000000000000000000001

Offset

1,3

Links

Table of n, a(n) for n=1..15.

Example

1000001 = 100^3 + 1 and is a palindrome.

Mathematica

Do[k = n^3 + 1; If[FromDigits[Reverse[IntegerDigits[k]]] == k, Print[k]], {n, -1, 10^8}] (* Ryan Propper, Aug 13 2005 *)
Select[Range[-1, 10^8]^3+1, #==IntegerReverse[#]&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, May 05 2016 *)

Crossrefs

Sequence in context: A252583 A253604 A067691 * A024226 A252584 A305851

Adjacent sequences: A062837 A062838 A062839 * A062841 A062842 A062843

Keyword

base,nonn

Author

Erich Friedman, Jul 21 2001

Extensions

a(11)-a(13) from Ryan Propper, Aug 13 2005

a(14)-a(15) from Sean A. Irvine, Apr 09 2023

Status

approved