A235037 Number of terms of A014847 that are not greater than n.

1, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10

Offset

1,2

Links

Bruno Berselli, Table of n, a(n) for n = 1..2000

Example

a(6)=3 because the terms of A014847 not greater than 6 are 1,2,6.
a(17)=4 because the terms of A014847 not greater than 17 are 1,2,6,15.

Mathematica

a[n_] := Module[{ris}, ris = {}; Do[If[Mod[Binomial[2 k, k], k] == 0, AppendTo[ris, k]], {k, n}]; Length[ris]]; Table[a[n], {n, 100}]

Crossrefs

Cf. A014847.

Sequence in context: A171626 A074279 A072750 * A347966 A186437 A345376

Adjacent sequences: A235034 A235035 A235036 * A235038 A235039 A235040

Keyword

nonn

Author

Bruno Berselli, Jan 05 2014 - sequence suggested by Umberto Cerruti (University of Turin, Italy)

Status

approved