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