OFFSET
1,1
COMMENTS
Numbers n such that A054055(n) = 5.
Number of terms less than 10^n is 6^n - 5^n.
Subsequence of A011535. - David A. Corneth, Mar 25 2017
Prime terms are in A106097.
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..5000
MATHEMATICA
Select[Range[1000], Max[IntegerDigits[#]] == 5 &] (* Giovanni Resta, Mar 19 2017 *)
PROG
(Magma) [n: n in [1..100000] | Maximum(Setseq(Set(Sort(&cat[Intseq(n)])))) eq 5]
(PARI) for(n=1, 500, if(vecmax(digits(n))==5, print1(n, ", "))) \\ Indranil Ghosh, Mar 19 2017
(PARI) nxt(n) = {my(d = digits(n), i, j=0, t=0); forstep(i=#d, 1, -1, if(d[i]!=5, j=i; break)); if(j>0, d[j]++; if(d[j]==5, for(k=j+1, #d, d[k]=0)); if(j<#d && d[j+1]==5, for(k=j+1, #d-1, d[k]=0)); for(k=1, j-1, if(d[k]==5, for(i=j+1, #d, d[i] = 0); break)), d = vector(#d+1); d[1]=1; d[#d]=5); sum(i=1, #d, d[i]*10^(#d-i))} \\ David A. Corneth, Mar 25 2017
(Python)
from sympy.ntheory.factor_ import digits
print([n for n in range(1, 501) if max(digits(n)[1:])==5]) # Indranil Ghosh, Mar 19 2017
(GAP) Filtered([1..500], n->Maximum(ListOfDigits(n))=5); # Muniru A Asiru, Feb 27 2019
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jaroslav Krizek, Mar 19 2017
STATUS
approved