|
%I #10 Mar 12 2013 16:59:17
%S 4,44,404,414,424,434,444,454,464,474,484,494,4004,4114,4224,4334,
%T 4444,4554,4664,4774,4884,4994,40004,40104,40204,40304,40404,40504,
%U 40604,40704,40804,40904,41014,41114,41214,41314,41414,41514,41614,41714,41814,41914
%N Palindromes that start with 4.
%H Jaroslav Krizek, <a href="/A043039/b043039.txt">Table of n, a(n) for n = 1..2222</a>
%t palQ[n_Integer, base_Integer] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse[idn]]; Select[Range[0, 100000], IntegerDigits[#][[1]] == 4 && palQ[#, 10] &] (* _T. D. Noe_, Mar 12 2013 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
