A385401 Left-truncatable perfect powers: every suffix is a perfect power.

1, 4, 8, 9, 49, 64, 81

Offset

1,2

Comments

Also left-truncatable powerful numbers: every suffix is a powerful number.

Links

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

Mathematica

perfectPowerQ[n_] := n == 1 || GCD @@ FactorInteger[n][[All, 2]] > 1; (* A001597 *)
Select[Range[1000], Sum[Boole[perfectPowerQ[t=FromDigits[Drop[IntegerDigits[#], i]]] && t != 0], {i, 0, IntegerLength[#]-1}] == IntegerLength[#] &]

Crossrefs

Cf. A001597 (perfect powers), A001694 (powerful numbers).

Cf. A164839, A164840, A202271.

Sequence in context: A237607 A035132 A077572 * A239520 A083807 A098128

Adjacent sequences: A385398 A385399 A385400 * A385402 A385403 A385404

Keyword

nonn,base,fini,full

Author

Stefano Spezia, Jun 27 2025

Status

approved