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