|
%I #14 Apr 17 2022 22:01:19
%S 2,1,1,1,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9,9,9,0,1,6,0,1,4,1,1,2,2,
%T 1,0,3,1,8,4,1,6,4,1,4,5,1,2,6,1,0,7,1,8,8,1,6,8,1,4,9,2,2,0,2,0,1,2,
%U 8,2,2,6,2,2,4,3,2,2,4,2,0,5,2,8,6,2,6,6,2,4,7,2,2,8,2,0,9,2,8,0,3,6,0,3,4
%N a(n) = A007376(8*n+2).
%H G. C. Greubel, <a href="/A127950/b127950.txt">Table of n, a(n) for n = 0..10000</a>
%t A007376 := Flatten[IntegerDigits /@ Range[1600]]; Table[A007376[[8*n + 2]], {n, 0, 100}] (* _G. C. Greubel_, May 05 2018 *)
%o (Python)
%o from itertools import islice, count
%o def A127950gen(): return islice((int(d) for n in count(0) for d in str(n)),2,None,8)
%o A127950_list = list(islice(A127950gen(),40)) # _Chai Wah Wu_, Dec 04 2021
%Y Cf. A007376.
%K nonn,base
%O 0,1
%A _N. J. A. Sloane_, Jul 23 2008
|
