A033152 Position of first occurrence of n in the continued fraction for Niven's constant.

1, 3, 10, 7, 47, 41, 34, 13, 140, 252, 20, 335, 38, 35, 327, 185, 200, 55

Offset

1,2

Comments

Next term > 500. - Michel ten Voorde Jun 14 2003

Links

Table of n, a(n) for n=1..18.

I. Niven, Averages of Exponents in Factoring Integers, Proc. Amer. Math. Soc. 22, 356-360, 1969.

Eric Weisstein's World of Mathematics, Niven's Constant.

Mathematica

rd[n_] := rd[n] = RealDigits[ N[1 + Sum[1 - 1/Zeta[j], {j, 2, 2^n}], 400]][[1]]; rd[n = 4]; While[rd[n] =!= rd[n-1], n++]; Niven = FromDigits[{rd[n], 1}]; A033151 = ContinuedFraction[Niven]; a[n_] := Position[A033151, n][[1, 1]]; Table[a[n], {n, 1, 18}] (* Jean-François Alcover, Oct 31 2012 *)

Crossrefs

Cf. A033150, A033151, A000009, A000010.

Sequence in context: A185139 A300786 A182241 * A281178 A280461 A222345

Adjacent sequences: A033149 A033150 A033151 * A033153 A033154 A033155

Keyword

nonn,cofr,more

Author

Eric W. Weisstein

Extensions

More terms from Michel ten Voorde, Jun 14 2003

Status

approved