A119513 a(n) = A119957(n) / n.

0, 0, 1, 0, 2, 1, 1, 0, 3, 2, 5, 1, 6, 1, 1, 0, 4, 3, 9, 2, 2, 5, 4, 1, 10, 6, 9, 1, 14, 1, 1, 0, 5, 4, 5, 3, 18, 9, 4, 2, 10, 2, 7, 5, 5, 4, 9, 1, 10, 10, 2, 6, 26, 9, 8, 1, 9, 14, 29, 1, 30, 1, 1, 0, 6, 5, 33, 4, 11, 5, 14, 3, 3, 18, 9, 9, 15, 4, 17, 2, 27, 10, 41, 2, 2, 7, 11, 5, 4, 5, 4, 4, 3, 9, 14

Offset: 1

Author

Néstor Romeral Andrés, Aug 04 2006

Keywords

• base
• easy
• nonn

Examples

			a(35) = A119957(35) / 35 = 175 / 35 = 5.
		

Links

• Andrei Zabolotskii, Table of n, a(n) for n = 1..8192

Crossrefs

Cf. A119957, A007733, A038553. The positions of 1's are A175332.

Programs

Mathematica

a[n_] := Total[PowerMod[2, Range[n-MultiplicativeOrder[2, n/2^IntegerExponent[n, 2]], n-1], n]] / n;
Table[a[n], {n,95}] (* Andrei Zabolotskii, Jul 28 2025 *)

Extensions

Offset corrected by Andrei Zabolotskii, Jul 28 2025