OFFSET
1,1
COMMENTS
Number of terms less than 10^n is 3^n-2^n, i.e., A001047(n). - Chai Wah Wu, Nov 06 2016 [extended by Felix Fröhlich, Nov 07 2016]
Numbers n such that A054055(n) = 2. - Felix Fröhlich, Nov 07 2016
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from Colin Barker)
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:
R; # Robert Israel, Nov 07 2016
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
Colin Barker, Nov 06 2016
STATUS
approved