login
A062840
Palindromes of the form k^3 + 1.
0
0, 1, 2, 9, 1001, 29792, 1000001, 1000000001, 1000000000001, 1000000000000001, 1000000000000000001, 1000000000000000000001, 1000000000000000000000001, 1000000000000000000000000001, 1000000000000000000000000000001
OFFSET
1,3
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
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