OFFSET
1,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000 (based on Hans Havermann's factorization of A156552)
FORMULA
MATHEMATICA
Array[Times @@ FactorInteger[#][[All, 1]] &@ Floor@ Total@ Flatten@ MapIndexed[#1 2^(#2 - 1) &, Flatten[Table[2^(PrimePi@ #1 - 1), {#2}] & @@@ FactorInteger@ #]] &, 94] (* Michael De Vlieger, Jan 24 2020 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 22 2020
STATUS
approved