This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A316988 #18 Aug 26 2018 13:20:36 %S A316988 1,3,5,7,9,1,1,1,1,1,3,1,1,5,1,1,7,1,1,9,1,3,5,7,9,3,3,1,3,3,3,3,3,5, %T A316988 3,3,7,3,3,9,1,3,5,7,9,5,5,1,5,5,3,5,5,5,5,5,7,5,5,9,1,3,5,7,9,7,7,1, %U A316988 7,7,3,7,7,5,7,7,7,7,7,9,1,3,5,7,9,9,9,1,9,9,3,9,9,5,9,9,7,9,9,9,1 %N A316988 The odd members of the "Almost natural numbers" (A007376). %C A316988 Also odd members of A033307. %C A316988 As the number of terms approaches infinity, each odd term appears equally often. - _Robert G. Wilson v_, Aug 01 2018 %e A316988 The initial (15) terms of A007376 are 1,2,3,4,5,6,7,8,9,1,0,1,1,1,2; omitting the even terms 2,4,6,8,0,2 leaves the first (8) odd terms 1,3,5,7,9,1,1,1: a(1) through a(8). %t A316988 Select[ Flatten[ IntegerDigits /@ Range@100], OddQ] (* _Robert G. Wilson v_, Aug 01 2018 *) %o A316988 (PARI) search(n) = for(k=1, n, my(d=select(x->x%2, digits(k))); for(m=1, #d, print1(d[m], ", "))) %o A316988 /* Call the function as follows to generate terms */ %o A316988 search(40) \\ _Felix Fröhlich_, Aug 01 2018 %Y A316988 Cf. A007376, A033307. %K A316988 nonn %O A316988 1,2 %A A316988 _Dave Durgin_, Jul 18 2018