A385516 Perfect powers whose digits are in strictly decreasing order.

1, 4, 8, 9, 32, 64, 81, 841, 961

Offset

1,2

Links

Table of n, a(n) for n=1..9.

Mathematica

perfectPowerQ[n_] := n==1 || GCD @@ FactorInteger[n][[All, 2]] > 1; (* A001597 *) Select[Range[1000], perfectPowerQ[#] && Max[Differences[IntegerDigits[#]]]<0 &]

Crossrefs

Cf. A001597, A009995, A355060, A355062, A355063, A385517.

Sequence in context: A387201 A385517 A355063 * A162752 A076966 A360758

Adjacent sequences: A385513 A385514 A385515 * A385517 A385518 A385519

Keyword

nonn,base,fini,full

Author

Stefano Spezia, Jul 01 2025

Status

approved