A035135 - OEIS

%I #23 Mar 07 2021 03:14:33

%S 4,6,9,22,33,44,55,66,77,99,111,121,141,161,171,202,212,222,242,252,

%T 262,282,292,303,323,333,363,393,404,414,434,444,454,474,484,494,505,

%U 515,525,535,545,555,565,575,585,595,606,626,636,646,666,676,707,717

%N Cubefree composite palindromes.

%H Amiram Eldar, <a href="/A035135/b035135.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Cubefree.html">Cubefree</a>.

%t 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 *)

%Y Intersection of A002113, A002808 and A004709.

%Y Cf. A035133, A035134.

%K nonn,base

%O 1,1

%A _Patrick De Geest_, Nov 15 1998