OFFSET
1,2
LINKS
FORMULA
MATHEMATICA
b[p_?PrimeQ] := b[p] = Prime[PrimePi[p] + 1]; b[1] = 1; b[n_] := b[n] = Times @@ (b[First[#]]^Last[#]&) /@ FactorInteger[n];
A048673[n_] := (b[n] + 1)/2;
Table[a[n], {n, 1, 100}] (* Jean-François Alcover, May 16 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 22 2014
STATUS
approved