%I #28 Mar 01 2019 10:36:39
%S 3,13,23,30,31,32,33,103,113,123,130,131,132,133,203,213,223,230,231,
%T 232,233,300,301,302,303,310,311,312,313,320,321,322,323,330,331,332,
%U 333,1003,1013,1023,1030,1031,1032,1033,1103,1113,1123,1130,1131,1132
%N Numbers whose largest decimal digit is 3.
%C Number of terms less than 10^n is 4^n - 3^n. - _Chai Wah Wu_, Nov 06 2016
%H Alois P. Heinz, <a href="/A277965/b277965.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Colin Barker)
%t A277965Q = Max[IntegerDigits[#]] == 3 &; Select[Range[1200], A277965Q] (* _JungHwan Min_, Nov 06 2016 *)
%o (PARI) L=List(); for(n=1, 10000, if(vecmax(digits(n))==3, listput(L, n))); Vec(L)
%o (GAP) Filtered([1..450],n->Maximum(ListOfDigits(n))=3); # _Muniru A Asiru_, Mar 01 2019
%Y Cf. A007088, A277964, A277966.
%Y Cf. A005061 (4^n - 3^n).
%Y Cf. A106099 (subsequence of primes).
%K nonn,base
%O 1,1
%A _Colin Barker_, Nov 06 2016