OFFSET
0,3
COMMENTS
Sum of terms larger than one on row 2n+1 of table A125184.
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..8192
FORMULA
MATHEMATICA
A003961[p_?PrimeQ] := A003961[p] = Prime[ PrimePi[p] + 1]; A003961[1] = 1; A003961[n_] := A003961[n] = Times @@ (A003961[First[#]] ^ Last[#] & ) /@ FactorInteger[n] (* after Jean-François Alcover, Dec 01 2011 *); A260443[n_]:= If[n<2, n + 1, If[EvenQ[n], A003961[A260443[n/2]], A260443[(n - 1)/2] * A260443[(n + 1)/2]]]; A275812[n_]:= PrimeOmega[n] - If[n<2, 0, Count[Transpose[FactorInteger[n]][[2]], 1]]; Table[A275812[A260443[2n + 1]], {n, 0, 150}] (* Indranil Ghosh, Mar 28 2017 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 25 2017
STATUS
approved