OFFSET
1,1
LINKS
Robert P. P. McKone, Table of n, a(n) for n = 1..911
MATHEMATICA
a[base_Integer, leading_Integer] := With[{k = 2}, Map[FromDigits[#, base] &, {{leading}, {leading, leading}}]~Join~Union@Flatten@Join[{ParallelMap[FromDigits[#, base] &@Join[#, Reverse@#] &@Join[{leading}, IntegerDigits[#, base]] &, Range[0, base^k - 1]], ParallelMap[FromDigits[#, base] &@Join[#, Reverse@Most[#]] &@Join[{leading}, IntegerDigits[#, base]] &, Range[0, base^k - 1]]}]];
a[9, 4] (* Robert P. P. McKone, Aug 26 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Robert P. P. McKone, Aug 22 2021
STATUS
approved