|
%I #8 May 09 2022 17:16:57
%S 1,7,49,50,51,52,53,54,55,56,385,394,403,412,421,430,439,448,3073,
%T 3081,3089,3097,3105,3113,3121,3129,3138,3146,3154,3162,3170,3178,
%U 3186,3194,3203,3211,3219,3227,3235,3243,3251,3259
%N a(n)=(s(n)+2)/8, where s(n)=n-th base 8 palindrome that starts with 6 (in base 8), written in decimal digits.
%t (#+2)/8&/@Select[Range[30000],IntegerDigits[#,8][[1]]==6&&IntegerDigits[#,8] == Reverse[ IntegerDigits[#,8]]&] (* _Harvey P. Dale_, May 07 2022 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E Definition clarified by _Harvey P. Dale_, May 07 2022
|
