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

%I #18 Aug 26 2018 13:20:36

%S 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 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 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 The odd members of the "Almost natural numbers" (A007376).

%C Also odd members of A033307.

%C As the number of terms approaches infinity, each odd term appears equally often. - _Robert G. Wilson v_, Aug 01 2018

%e 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 Select[ Flatten[ IntegerDigits /@ Range@100], OddQ] (* _Robert G. Wilson v_, Aug 01 2018 *)

%o (PARI) search(n) = for(k=1, n, my(d=select(x->x%2, digits(k))); for(m=1, #d, print1(d[m], ", ")))

%o /* Call the function as follows to generate terms */

%o search(40) \\ _Felix Fröhlich_, Aug 01 2018

%Y Cf. A007376, A033307.

%K nonn

%O 1,2

%A _Dave Durgin_, Jul 18 2018