The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A350218 a(1) = 1. a(n) is the smallest unlisted number, the name of which does not contain the first letter of the name of a(n-1) in US English. 1
1, 3, 4, 2, 5, 6, 8, 30, 7, 9, 12, 11, 32, 100, 10, 101, 13, 104, 15, 16, 14, 17, 18, 34, 105, 19, 33, 106, 20, 107, 23, 109, 25, 111, 26, 400, 21, 401, 22, 404, 27, 405, 28, 406, 29, 407, 31, 409, 36, 411, 37, 500, 38, 501, 39, 504, 60, 24, 505, 61, 35, 506, 62, 40, 63, 41, 66, 42, 67, 43 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
MATHEMATICA
name[n_]:=IntegerName[n, "Words"]; a[1]=1;
a[n_]:=a[n]=Module[{i=1}, While[ Or[ MemberQ[Table[a[k], {k, 1, n-1}], i],
StringContainsQ[name[i], StringTake[name[a[n-1]], 1]]], i++ ]; i];
a/@Range[70]
PROG
(Python)
from num2words import num2words
def n2w(n): return num2words(n).replace(" and", "")
def aupton(terms):
alst, aset = [1], {1}
for n in range(2, terms+1):
an = 1
avoid = n2w(alst[-1])[0]
while an in aset or avoid in n2w(an): an += 1
alst.append(an); aset.add(an)
return alst
print(aupton(70)) # Michael S. Branicky, Dec 20 2021
CROSSREFS
Sequence in context: A138609 A322466 A211377 * A056699 A297969 A127296
KEYWORD
nonn,word
AUTHOR
Ivan N. Ianakiev, Dec 20 2021
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 15 13:08 EDT 2024. Contains 373407 sequences. (Running on oeis4.)