cp's OEIS Frontend

A065648 a(0) = 1 and for n > 0: a(n) = number of indices 0 <= i <= n with A033307(i)=A033307(n), where A033307 is the sequence of decimal digits of Champernowne's constant 0.123456789101112131415...

%I A065648 #5 Aug 14 2015 14:36:23
%S A065648 1,1,1,1,1,1,1,1,1,1,2,2,3,4,5,2,6,2,7,2,8,2,9,2,10,2,11,2,12,2,3,3,4,
%T A065648 13,5,6,7,3,8,3,9,3,10,3,11,3,12,3,13,3,4,4,5,14,6,14,7,8,9,4,10,4,11,
%U A065648 4,12,4,13,4,14,4,5,5,6,15,7,15,8,15,9,10,11,5,12,5,13,5,14,5,15,5,6,6
%N A065648 a(0) = 1 and for n > 0: a(n) = number of indices 0 <= i <= n with A033307(i)=A033307(n), where A033307 is the sequence of decimal digits of Champernowne's constant 0.123456789101112131415...
%H A065648 Reinhard Zumkeller, <a href="/A065648/b065648.txt">Table of n, a(n) for n = 0..10000</a>
%o A065648 (Haskell)
%o A065648 a065648 n = a065648_list !! n
%o A065648 a065648_list = f (0 : a033307_list) $ take 10 $ repeat 1 where
%o A065648    f (d:ds) counts = y : f ds (xs ++ (y + 1) : ys) where
%o A065648                            (xs, y:ys) = splitAt d counts
%o A065648 -- _Reinhard Zumkeller_, Aug 13 2015
%Y A065648 Cf. A033307, A065649, A065650.
%Y A065648 Cf. A256100.
%K A065648 base,nonn,look
%O A065648 0,11
%A A065648 Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Nov 09 2001
%E A065648 Definition and offset adjusted to follow a later change of A033307. - _Reinhard Zumkeller_, Aug 13 2015