|
|
A277964
|
|
Numbers whose largest decimal digit is 2.
|
|
9
|
|
|
2, 12, 20, 21, 22, 102, 112, 120, 121, 122, 200, 201, 202, 210, 211, 212, 220, 221, 222, 1002, 1012, 1020, 1021, 1022, 1102, 1112, 1120, 1121, 1122, 1200, 1201, 1202, 1210, 1211, 1212, 1220, 1221, 1222, 2000, 2001, 2002, 2010, 2011, 2012, 2020, 2021, 2022
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
N:= 6: # to get all terms of at most N digits
R:= 2: B:= {1}: C:= {1, 2}:
for d from 2 to N do B:= map(t -> (10*t, 10*t+1), B);
C:= map(t -> (10*t, 10*t+1, 10*t+2), C);
R:= R, op(sort(convert(C minus B, list)))
od:
|
|
MATHEMATICA
|
A277964Q = Max[IntegerDigits[#]] == 2 &; Select[Range[2000], A277964Q] (* JungHwan Min, Nov 06 2016 *)
|
|
PROG
|
(PARI) L=List(); for(n=1, 10000, if(vecmax(digits(n))==2, listput(L, n))); Vec(L)
(GAP) Filtered([1..2100], n->Maximum(ListOfDigits(n))=2); # Muniru A Asiru, Mar 01 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|