A127950 - OEIS

%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