OFFSET
1,6
COMMENTS
See also comments in A143293.
LINKS
EXAMPLE
MATHEMATICA
{0}~Join~Array[Max[FactorInteger[#][[All, -1]]] &@ Total[Times @@@ Transpose@{Map[Times @@ # &, Prime@ Range@ Range[0, Length@ # - 1]], Reverse@ #}] &@ IntegerDigits[#, 2] &, 104, 2] (* Michael De Vlieger, Feb 04 2022 *)
PROG
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Antti Karttunen, Feb 03 2022
STATUS
approved