The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A098946 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A098946

Numbers where 3 is the only odd decimal digit.
(history; published version)

#13 by Charles R Greathouse IV at Sat Apr 18 00:43:04 EDT 2020

STATUS

editing

approved

#12 by Charles R Greathouse IV at Sat Apr 18 00:42:58 EDT 2020

LINKS

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

STATUS

approved

editing

#11 by Susanna Cuyler at Tue Feb 05 18:43:47 EST 2019

STATUS

proposed

approved

#10 by Robert Israel at Tue Feb 05 14:09:27 EST 2019

STATUS

editing

proposed

#9 by Robert Israel at Tue Feb 05 14:08:53 EST 2019

LINKS

Robert Israel, <a href="/A098946/b098946.txt">Table of n, a(n) for n = 1..10000</a>

#8 by Robert Israel at Tue Feb 05 14:07:41 EST 2019

MAPLE

S:= [0, 2, 3, 4, 6, 8]:

f:= proc(n) local L, i;

L:= convert(n, base, 6);

if member(2, L) then

add(S[L[i]+1]*10^(i-1), i=1..nops(L))

fi

end proc:

map(f, [$1..200]); # Robert Israel, Feb 05 2019

STATUS

approved

editing

#7 by Harvey P. Dale at Fri May 05 17:29:56 EDT 2017

STATUS

editing

approved

#6 by Harvey P. Dale at Fri May 05 17:29:53 EDT 2017

MATHEMATICA

Select[Range[400], Union[Select[IntegerDigits[#], OddQ]]=={3}&] (* Harvey P. Dale, May 05 2017 *)

STATUS

approved

editing

#5 by Charles R Greathouse IV at Mon May 13 01:48:22 EDT 2013

COMMENTS

This is a regular language in base 10. [_Charles R Greathouse IV, _, Oct 05 2011]

PROG

} # _Charles R Greathouse IV, _, Oct 05 2011

Discussion

Mon May 13

01:48

OEIS Server: https://oeis.org/edit/global/1914

#4 by Russ Cox at Sat Mar 31 13:46:50 EDT 2012

AUTHOR

_Eric Angelini (eric.angelini(AT)kntv.be), _, Oct 21 2004

Discussion

Sat Mar 31

13:46

OEIS Server: https://oeis.org/edit/global/891