|
%I #8 Nov 21 2013 12:47:01
%S 1,3,11,12,13,14,15,51,57,63,69,75,251,256,261,266,271,277,282,287,
%T 292,297,303,308,313,318,323,329,334,339,344,349,355,360,365,370,375,
%U 1251,1281,1311,1341,1371,1377,1407,1437,1467,1497
%N a(n)=(s(n)+3)/5, where s(n)=n-th base 5 palindrome that starts with 2.
%t pal5Q[n_]:=Module[{idn5=IntegerDigits[n,5]},idn5==Reverse[idn5]&&First[idn5]==2]
%t (#+3)/5&/@Select[Range[9000],pal5Q] (* _Harvey P. Dale_, Feb 13 2011 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
