|
%I #16 Sep 20 2023 18:49:51
%S 1,3,17,18,19,20,21,22,23,24,129,138,147,156,165,174,183,192,1025,
%T 1033,1041,1049,1057,1065,1073,1081,1090,1098,1106,1114,1122,1130,
%U 1138,1146,1155,1163,1171,1179,1187,1195,1203,1211
%N a(n) = (s(n)+6)/8, where s(n) = n-th base 8 palindrome that starts with 2.
%F a(n) = (A043022(n) + 6)/8.
%t b8pQ[n_]:=With[{idn=IntegerDigits[n,8]},idn==Reverse[idn]&&idn[[1]]==2]; (#+6)/8&/@ Select[ Range[1000],b8pQ] (* _Harvey P. Dale_, Sep 20 2023 *)
%Y Cf. A043022.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
