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