login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A098945 Numbers where 1 is the only odd decimal digit. 2

%I

%S 1,10,11,12,14,16,18,21,41,61,81,100,101,102,104,106,108,110,111,112,

%T 114,116,118,120,121,122,124,126,128,140,141,142,144,146,148,160,161,

%U 162,164,166,168,180,181,182,184,186,188,201,210,211,212,214,216,218

%N Numbers where 1 is the only odd decimal digit.

%C This is a 10-automatic language. - _Charles R Greathouse IV_, Oct 05 2011

%H Robert Israel, <a href="/A098945/b098945.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>

%p A[1]:= {0,2,4,6,8}: B[1]:= {1}:

%p for i from 2 to 3 do

%p A[i]:= A[i-1] union map(t -> seq(x*10^(i-1)+t,x=[2,4,6,8]), A[i-1]);

%p B[i]:= B[i-1] union map(t -> seq(x*10^(i-1)+t,x=[2,4,6,8]), B[i-1]) union map(t -> 10^(i-1)+t, A[i-1] union B[i-1]);

%p od:

%p sort(convert(B[3],list)); # _Robert Israel_, May 07 2020

%o (Perl) for (0..1000) {

%o print "$_, " if (/^[012468]*1[012468]*$/)

%o } # _Charles R Greathouse IV_, Oct 05 2011

%K base,easy,nonn

%O 1,2

%A _Eric Angelini_, Oct 21 2004

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 22 17:39 EDT 2021. Contains 347607 sequences. (Running on oeis4.)