login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #8 Dec 20 2021 19:14:37

%S 1,3,4,2,5,6,8,30,7,9,12,11,32,100,10,101,13,104,15,16,14,17,18,34,

%T 105,19,33,106,20,107,23,109,25,111,26,400,21,401,22,404,27,405,28,

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

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

%t name[n_]:=IntegerName[n,"Words"]; a[1]=1;

%t a[n_]:=a[n]=Module[{i=1}, While[ Or[ MemberQ[Table[a[k],{k,1,n-1}],i],

%t StringContainsQ[name[i],StringTake[name[a[n-1]],1]]], i++ ]; i];

%t a/@Range[70]

%o (Python)

%o from num2words import num2words

%o def n2w(n): return num2words(n).replace(" and", "")

%o def aupton(terms):

%o alst, aset = [1], {1}

%o for n in range(2, terms+1):

%o an = 1

%o avoid = n2w(alst[-1])[0]

%o while an in aset or avoid in n2w(an): an += 1

%o alst.append(an); aset.add(an)

%o return alst

%o print(aupton(70)) # _Michael S. Branicky_, Dec 20 2021

%Y Cf. A350217, A277971, A277972.

%K nonn,word

%O 1,2

%A _Ivan N. Ianakiev_, Dec 20 2021