A035135 Cubefree composite palindromes.
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
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Eric Weisstein's World of Mathematics, Cubefree.
Programs
-
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 *)