OFFSET
1,429
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10001
FORMULA
MATHEMATICA
Table[If[n == 1, 0, Subtract @@ Map[Count[#, d_ /; d > First[#]^2] &@ FactorInteger[#][[All, 1]] &, {n, Times @@ Map[#1^#2 & @@ # &, FactorInteger[n] /. {p_, e_} /; e > 0 :> {Prime[PrimePi@ p + 1], e}] - Boole[n == 1]}]], {n, 120}] (* Michael De Vlieger, Mar 24 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 24 2017
EXTENSIONS
Secondary offset corrected by Antti Karttunen, Dec 15 2017
STATUS
approved