OFFSET
1,1
COMMENTS
These are points at which the second differences (A376596) are nonzero.
Inclusive means 1 is a prime-power. For the exclusive version, subtract 1 from all terms.
LINKS
EXAMPLE
The prime-powers inclusive (A000961) are:
1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, ...
with first differences (A057820):
1, 1, 1, 1, 2, 1, 1, 2, 2, 3, 1, 2, 4, 2, 2, 2, 2, 1, 5, 4, 2, 4, 2, 4, 6, 2, ...
with first differences (A376596):
0, 0, 0, 1, -1, 0, 1, 0, 1, -2, 1, 2, -2, 0, 0, 0, -1, 4, -1, -2, 2, -2, 2, 2, ...
with nonzeros at (A376598):
4, 5, 7, 9, 10, 11, 12, 13, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, ...
MATHEMATICA
Join@@Position[Sign[Differences[Select[Range[1000], #==1||PrimePowerQ[#]&], 2]], 1|-1]
CROSSREFS
First differences are A376309.
The complement is A376597.
`A064113 lists positions of adjacent equal prime gaps.
For prime-powers inclusive: A057820 (first differences), A376597 (second differences), A376597 (inflections and undulations), A376653 (sorted firsts in second differences).
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 05 2024
STATUS
approved