OFFSET
1,1
COMMENTS
Number of terms less than 10^n is 5^n-4^n. - Chai Wah Wu, Nov 06 2016
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
MATHEMATICA
A277966Q = Max[IntegerDigits[#]] == 4 &; Select[Range[500], A277966Q] (* JungHwan Min, Nov 06 2016 *)
Select[Range[500], Max[IntegerDigits[#]]==4&] (* Harvey P. Dale, May 05 2019 *)
PROG
(PARI) L=List(); for(n=1, 10000, if(vecmax(digits(n))==4, listput(L, n))); Vec(L)
(GAP) Filtered([1..450], n->Maximum(ListOfDigits(n))=4); # Muniru A Asiru, Mar 01 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Colin Barker, Nov 06 2016
STATUS
approved