|
|
A355063
|
|
Perfect powers whose digits are in nonincreasing order and do not include 0.
|
|
0
|
|
|
1, 4, 8, 9, 32, 64, 81, 441, 841, 961, 7744, 7776, 8874441, 9853321, 999887641
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
PROG
|
(Python)
from sympy import perfect_power as pp
from itertools import count, islice, combinations_with_replacement as mc
def agen():
yield 1
for d in count(1):
nd = (int("".join(m)) for m in mc("987654321", d))
yield from sorted(filter(pp, nd))
(PARI) isok(m) = if (ispower(m), my(d=digits(m)); vecmin(d) && (d == vecsort(d, , 4))); \\ Michel Marcus, Jun 17 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|