OFFSET
1,3
LINKS
MATHEMATICA
Array[Mod[#, 3] &@ Floor@ Total@ Flatten@ MapIndexed[#1 2^(#2 - 1) &, Flatten[Table[2^(PrimePi@ #1 - 1), {#2}] & @@@ FactorInteger@ #]] &, 105] (* Michael De Vlieger, Dec 27 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 08 2019
STATUS
approved