A259922 a(n)= Sum_{2 < prime p <= n} c_p - Sum_{n < prime p < 2*n} c_p, where 2^c_p is the greatest power of 2 dividing p-1.
0, -1, -1, -2, 2, 1, 1, 1, -3, -4, -2, -3, 1, 1, -1, -2, 6, 6, 6, 6, 3, 2, 4, 3, 3, 3, 1, 1, 5, 4, 4, 4, 4, 3, 3, 2, 3, 3, 3, 2, 8, 7, 9, 9, 6, 6, 8, 8, 3, 3, 1, 0, 4, 3, 1, 1, -3, -3, -1, -1, 3, 3, 3, 2, 2, 1, 3, 3, 0, -1, 1, 1, 7, 7, 5, 4, 4, 4, 4, 4, 4, 3
Offset: 1
Keywords
Links
- Peter J. C. Moses, Table of n, a(n) for n = 1..2000
Programs
-
Mathematica
Map[Total[Flatten[Map[IntegerExponent[Select[#,PrimeQ]-1,2]&,{Range[3,#],Range[#+1,2#-1]}]{1,-1}]]&,Range[50]]
Extensions
More terms from Peter J. C. Moses, Jul 09 2015
Comments