A375928 Positions of adjacent non-prime-powers (exclusive) differing by more than 1.

1, 2, 3, 4, 6, 7, 10, 11, 12, 13, 14, 18, 21, 22, 25, 26, 29, 34, 35, 37, 39, 42, 43, 48, 49, 50, 55, 62, 65, 66, 69, 70, 73, 80, 83, 84, 86, 91, 92, 101, 102, 107, 112, 115, 116, 119, 124, 125, 134, 135, 138, 139, 150, 161, 164, 165, 168, 173, 174, 175, 182

Offset: 1

Author

Gus Wiseman, Sep 12 2024

Keywords

• nonn

Examples

			The non-prime-powers (exclusive) are 1, 6, 10, 12, 14, 15, 18, 20, ... which increase by more than 1 after positions 1, 2, 3, 4, 6, 7, ...
		

Crossrefs

For prime-powers inclusive (A000961) we have A376163, differences A373672.

For nonprime numbers (A002808) we have A014689, differences A046933.

First differences are A110969.

The complement is A375713.

For non-perfect-powers we have A375714, complement A375740.

The complement for prime-powers (exclusive) is A375734, differences A373671.

The complement for nonprime numbers is A375926, differences A373403.

A000040 lists the prime numbers, differences A001223.

A000961 lists prime-powers (inclusive), differences A057820.

A007916 lists non-perfect-powers, differences A375706.

A024619 lists non-prime-powers (inclusive), differences A375735.

A246655 lists prime-powers (exclusive), differences A174965.

A361102 lists non-prime-powers (exclusive), differences A375708.

Cf. A006549, A053289, A073783, A093555, A120430, A176246, A251092.

Programs

Mathematica

ce=Select[Range[100],!PrimePowerQ[#]&];
Select[Range[Length[ce]-1],!ce[[#+1]]==ce[[#]]+1&]

Formula

The inclusive version is a(n+1) - 1.