|
%I #7 Dec 26 2021 18:44:56
%S 1,4,25,26,27,28,29,30,31,32,193,202,211,220,229,238,247,256,1537,
%T 1545,1553,1561,1569,1577,1585,1593,1602,1610,1618,1626,1634,1642,
%U 1650,1658,1667,1675,1683,1691,1699,1707,1715,1723
%N a(n)=(s(n)+5)/8, where s(n)=n-th base 8 palindrome that starts with 3.
%t b8s3Q[n_]:=Module[{idn=IntegerDigits[n,8]},idn[[1]]==3&&idn== Reverse[ idn]]; (#+5)/8&/@Select[Range[15000],b8s3Q] (* _Harvey P. Dale_, Dec 26 2021 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
