A062840 - OEIS

A062840

Palindromes of the form k^3 + 1.

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

(list; graph; refs; listen; history; text; internal format)

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