|
|
A110222
|
|
Palindromic numbers which are not the absolute difference of a cube and a square.
|
|
0
|
|
|
6, 66, 77, 88, 111, 181, 202, 363, 383, 434, 454, 474, 494, 555, 565, 595, 606, 646, 666, 707, 717, 747, 787, 818, 838, 858, 929, 949, 959, 979, 989, 1221, 1551, 1661, 2002, 2442, 2662, 3003, 3443, 3773, 3883, 4114, 4334, 4444, 4774, 4884, 5005, 5115, 5335
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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, 130]; t2 = Union[ Flatten[ Table[ Select[ Table[ Abs[n^3 - m^2], {m, 0, 10000}], # < 10^3 &], {n, -5000, 5000}]]]; Take[ Complement[t1, Intersection[t1, t2]], 50]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|