Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

0,21

a(n) = #{k: A008963(k) = 6 and 0<=k<=n};

a(A105506(n)) = a(A105506(n) - 1) + 1;

n = A105511(n) + A105512(n) + A105513(n) + A105514(n) + A105515(n) + a(n) + A105517(n) + A105518(n) + A105519(n).

Table of n, a(n) for n=0..104.

Prepend[Accumulate[If[First[IntegerDigits[#]]==6, 1, 0]&/@Fibonacci[Range[110]]], 0] {* From Harvey P. Dale, Feb 18 2011 *)

Cf. A000030, A000045.

Sequence in context: A194334 A242259 A048766 * A105518 A111896 A105515

Adjacent sequences: A105513 A105514 A105515 * A105517 A105518 A105519

nonn,base

Reinhard Zumkeller, Apr 11 2005

approved