A316988 The odd members of the "Almost natural numbers" (A007376).

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, 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, 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

Offset: 1

Author

Dave Durgin, Jul 18 2018

Keywords

• nonn

Comments

Also odd members of A033307.

As the number of terms approaches infinity, each odd term appears equally often. - Robert G. Wilson v, Aug 01 2018

Examples

			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).
		

Crossrefs

Cf. A007376, A033307.

Programs

Mathematica

Select[ Flatten[ IntegerDigits /@ Range@100], OddQ] (* Robert G. Wilson v, Aug 01 2018 *)

PARI

search(n) = for(k=1, n, my(d=select(x->x%2, digits(k))); for(m=1, #d, print1(d[m], ", ")))
/* Call the function as follows to generate terms */
search(40) \\ Felix Fröhlich, Aug 01 2018