The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A064823 Number of indices 1 <= i <= n with A000796(i)=A000796(n). 3

%I

%S 1,1,1,2,1,1,1,1,2,2,3,1,2,1,3,3,2,4,2,2,2,3,3,3,5,6,3,7,4,2,4,4,1,5,

%T 4,5,4,3,5,3,4,4,6,8,7,8,9,4,5,5,2,6,6,6,3,9,5,5,10,6,7,7,11,7,10,4,6,

%U 7,6,5,8,5,6,8,8,7,9,6,9,12,13,10,8,10,11,7,11,9,12,11,8,12,10,12,7,8,7

%N Number of indices 1 <= i <= n with A000796(i)=A000796(n).

%H Reinhard Zumkeller, <a href="/A064823/b064823.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Ph#Pi314">Index entries for sequences related to the number Pi</a>

%t terms = 100; Clear[cnt]; cnt[_] = n = 0;

%t Do[a[++n] = ++cnt[k], {k, RealDigits[Pi, 10, terms][[1]]}];

%t a /@ Range[terms] (* _Jean-François Alcover_, Nov 15 2019 *)

%o a064823_list = f a000796_list \$ replicate 10 0 where

%o f (d:ds) cs = (v + 1) : f ds (us ++ (v + 1) : vs) where

%o (us, v:vs) = splitAt d cs

%o -- _Reinhard Zumkeller_, Jul 14 2013

%Y A000796 is the sequence of decimal digits of Pi.

%K base,nonn

%O 1,4

%A Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 23 2001

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 5 10:38 EDT 2021. Contains 346466 sequences. (Running on oeis4.)