|
|
A035135
|
|
Cubefree composite palindromes.
|
|
2
|
|
|
4, 6, 9, 22, 33, 44, 55, 66, 77, 99, 111, 121, 141, 161, 171, 202, 212, 222, 242, 252, 262, 282, 292, 303, 323, 333, 363, 393, 404, 414, 434, 444, 454, 474, 484, 494, 505, 515, 525, 535, 545, 555, 565, 575, 585, 595, 606, 626, 636, 646, 666, 676, 707, 717
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Cubefree.
|
|
MATHEMATICA
|
cufQ[n_]:=Max[Transpose[FactorInteger[n]][[2]]]<=2; palQ[n_]:=FromDigits[Reverse[IntegerDigits[n]]]==n; Select[Range[2, 718], !PrimeQ[#] && cufQ[#] && palQ[#] &] (* Jayanta Basu, May 12 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|