OFFSET
0,2
COMMENTS
Number of 1's 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]]]; a[n_]:= If[n<2, 0, Count[Transpose[FactorInteger[n]][[2]], 1]]; A277324[n_]:=A260443[2n + 1]; Table[a[A277324[n]], {n, 0, 150}] (* Indranil Ghosh, Mar 28 2017 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 25 2017
STATUS
approved