A378358 Least non-perfect-power >= n.

2, 2, 3, 5, 5, 6, 7, 10, 10, 10, 11, 12, 13, 14, 15, 17, 17, 18, 19, 20, 21, 22, 23, 24, 26, 26, 28, 28, 29, 30, 31, 33, 33, 34, 35, 37, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 50, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 65, 65, 66, 67

Offset

1,1

Comments

Perfect-powers (A001597) are 1 and numbers with a proper integer root, complement A007916.

Links

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

Formula

a(n) = n - A3783587(n).

Mathematica

perpowQ[n_]:=n==1||GCD@@FactorInteger[n][[All, 2]]>1;
Table[NestWhile[#+1&, n, perpowQ[#]&], {n, 100}]

Crossrefs

The version for prime-powers is A000015, for non-prime-powers A378372.

The union is A007916, complement A001597.

The version for nonsquarefree numbers is A067535, negative A120327 (subtract A378369).

The version for composite numbers is A113646.

The version for prime numbers is A159477.

The run-lengths are A375706.

Terms appearing only once are A375738, multiple times A375703.

The version for perfect-powers is A377468.

Subtracting n gives A378357.

The opposite version is A378363, for perfect-powers A081676.

A000040 lists the primes, differences A001223.

A000961 lists the powers of primes, differences A057820.

A001597 lists the perfect-powers, differences A053289.

A007916 lists the non-perfect-powers, differences A375706.

A069623 counts perfect-powers <= n.

A076411 counts perfect-powers < n.

A131605 lists perfect-powers that are not prime-powers.

A377432 counts perfect-powers between primes, zeros A377436.


Cf. A007918, A014210, A031218, A045542, A052410, A065514, A070321, A076412, A188951, A216765, A345531, A378033.

Sequence in context: A319476 A140200 A289199 * A029039 A316185 A131429

Adjacent sequences: A378341 A378342 A378343 * A378363 A378378 A378402

Keyword

nonn,new

Author

Gus Wiseman, Nov 24 2024

Status

approved