login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A038808 Palindromic numbers which are the difference of two positive cubes. 1
0, 7, 919, 999, 25352, 27872, 31213, 37973, 45054, 53135, 54845, 56765, 60606, 62426, 63936, 74347, 75357, 78687, 86868, 90909, 98289, 121121, 757757, 982289, 999999, 1063601, 1081801, 1188811, 1197911, 1366631, 1393931, 1507051, 1644461 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Chai Wah Wu, Table of n, a(n) for n = 1..2000

MATHEMATICA

NextPalindrome[n_] := Block[ {l = Floor[ Log[10, n] + 1], idn = IntegerDigits[n]}, If[ Union[ idn] == {9}, Return[n + 2], If[l < 2, Return[n + 1], If[ FromDigits[ Reverse[ Take[ idn, Ceiling[l/2]]]] > FromDigits[ Take[ idn, -Ceiling[l/2]]], FromDigits[ Join[ Take[ idn, Ceiling[l/2]], Reverse[ Take[ idn, Floor[l/2]]]]], idfhn = FromDigits[ Take[ idn, Ceiling[l/2]]] + 1; idp = FromDigits[ Join[ IntegerDigits[ idfhn], Drop[ Reverse[ IntegerDigits[ idfhn]], Mod[l, 2]]]]]]]]; t1 = NestList[ NextPalindrome, 0, 2800]; t2 = Select[ Union[Flatten[Table[n^3 - m^3, {n, 900}, {m, n - 1}]]], # < 2*10^6 &]; Intersection[t1, t2] - Robert G. Wilson v

CROSSREFS

Cf. A002113, A038593, A109879.

Sequence in context: A127102 A269932 A252175 * A068728 A028990 A304396

Adjacent sequences:  A038805 A038806 A038807 * A038809 A038810 A038811

KEYWORD

nonn,base

AUTHOR

Jeff Burch

EXTENSIONS

More terms from Robert G. Wilson v, Jul 14 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 14 09:11 EDT 2020. Contains 335720 sequences. (Running on oeis4.)