cp's OEIS Frontend

A066547 Let N = 123456789101112131415161718..., the concatenation of the natural numbers. a(n) is the n-digit number formed from the digits of N starting from the {n(n-1)/2 +1}th digit. Omit any leading zeros.

%I A066547 #16 Apr 27 2025 01:07:47
%S A066547 1,23,456,7891,1112,131415,1617181,92021222,324252627,2829303132,
%T A066547 33343536373,839404142434,4454647484950,51525354555657,
%U A066547 585960616263646,5666768697071727,37475767778798081,828384858687888990,9192939495969798991,101102103104105106,107108109110111112113
%N A066547 Let N = 123456789101112131415161718..., the concatenation of the natural numbers. a(n) is the n-digit number formed from the digits of N starting from the {n(n-1)/2 +1}th digit. Omit any leading zeros.
%H A066547 Jason Bard, <a href="/A066547/b066547.txt">Table of n, a(n) for n = 1..1000</a> (first 71 terms from Vincenzo Librandi)
%e A066547 1, 23, 456, 7891, 01112, 131415, 1617181, 92021222, 3... becomes 1, 23, 456, 7891, 1112, 131415, 1617181, 92021222, ...
%t A066547 d = Flatten[IntegerDigits /@ Range[90]]; Table[FromDigits[Take[d, {n(n + 1)/2 + 1, (n + 1)(n + 2)/2}]], {n, 0, 17}] (* _Robert G. Wilson v_, Nov 22 2004 *)
%o A066547 (PARI) N=[]; k=0; for(n=1,20, while(#N<n, N=concat(N,Vec(Str(k++)))); print1(eval(concat(vecextract(N,2^n-1)))","); N=vecextract(N,Str("^.."n))) \\ _M. F. Hasler_, May 08 2014
%Y A066547 Cf. A100751, A007376, A033307, A066548.
%Y A066547 Cf. A001369, A007923.
%K A066547 nonn,base
%O A066547 1,2
%A A066547 _Amarnath Murthy_, Dec 16 2001
%E A066547 More terms from Larry Reeves (larryr(AT)acm.org), Dec 18 2001