OFFSET
1,1
COMMENTS
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..5000
MATHEMATICA
Select[Range[1000], Max[IntegerDigits[#]] == 6 &] (* Giovanni Resta, Mar 19 2017 *)
PROG
(Magma) [n: n in [1..100000] | Maximum(Setseq(Set(Sort(&cat[Intseq(n)])))) eq 6]
(PARI) for(n=1, 500, if(vecmax(digits(n))==6, print1(n, ", "))) \\ Indranil Ghosh, Mar 19 2017
(Python)
from sympy.ntheory.factor_ import digits
print([n for n in range(1, 501) if max(digits(n)[1:])==6]) # Indranil Ghosh, Mar 19 2017
(GAP) Filtered([1..500], n->Maximum(ListOfDigits(n))=6); # Muniru A Asiru, Mar 01 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 19 2017
STATUS
approved