A378366 Difference between n and the greatest non prime power <= n (allowing 1).

0, 1, 2, 3, 4, 0, 1, 2, 3, 0, 1, 0, 1, 0, 0, 1, 2, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 2, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0

Offset

1,3

Comments

Non prime powers allowing 1 (A361102) are numbers that are not a prime power (A246655), namely 1, 6, 10, 12, 14, 15, 18, 20, 21, 22, 24, ...

Links

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

Formula

a(n) = n - A378367(n).

Mathematica

Table[n-NestWhile[#-1&, n, PrimePowerQ[#]&], {n, 100}]

Crossrefs

Sequences obtained by subtracting each term from n are placed in parentheses below.

For nonprime we almost have A010051 (A179278).

For prime we have A064722 (A007917).

For perfect power we have A069584 (A081676).

For squarefree we have (A070321).

For prime power we have A378457 = A276781-1 (A031218).

For nonsquarefree we have (A378033).

For non perfect power we almost have A075802 (A378363).

Subtracting from n gives (A378367).

The opposite is A378371, adding n A378372.

A000015 gives the least prime power >= n (cf. A378370 = A377282 - 1).

A000040 lists the primes, differences A001223.

A000961 and A246655 list the prime powers, differences A057820.

A024619 and A361102 list the non prime powers, differences A375708 and A375735.

A151800 gives the least prime > n, weak version A007918.

Prime powers between primes: A053607, A080101, A304521, A366833, A377057.

Cf. A007916, A007920, A013632, A065514, A074984, A113646, A345531, A377051, A377054, A377281, A377289, A378357.

Sequence in context: A197024 A031235 A090141 * A049264 A010874 A330358

Adjacent sequences: A378361 A378363 A378365 * A378367 A378369 A378370

Keyword

nonn,new

Author

Gus Wiseman, Nov 29 2024

Status

approved