|
Search: id:A072610
|
|
|
| A072610 |
|
Values of transition of A072608(n) from alternating behavior (0,1,0,1,..) into steadily-1 (1,1,1,..) behavior or changing back. Expressing in terms of A072609(n): at n values it switches from steadily 0 into steadily 1 successive values or back. |
|
+0
7
|
|
| 3, 11, 29, 67, 69, 71, 179, 181, 189, 441, 1059, 2699, 6453, 6459, 6471, 15927, 40071, 40083, 40121, 100363, 251705, 251707, 251709, 251721, 251723, 251735, 251737, 251741, 251761, 637233, 637235, 637319, 637321, 637323, 637325, 637329, 637333
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Switching zones appear in clusters of n. Remainder A004648 either drops or starts to increase at these values of n.
|
|
FORMULA
|
Value of n is such that A072609(n) is not equal A072609(n+1).
|
|
EXAMPLE
|
At n=637330...637370 the change of remainder A004648 is as follows: {..637323, 4, 13, 4, 637333, 637327, 637335, 637323, 637319, 637325, 637321, 4, 11, 4, 7, 34, 29, 26, 17, 44, 43, 46, 41, 38, 49, 52, 49, 44, 37, 28, 37..}
|
|
MATHEMATICA
|
mm[x_] := Mod[Mod[Prime[x], x], 2] pm[x_] := mm[x]*mm[x+1] Do[s1=pm[n]; s2=pm[n+1]; If[ !Equal[s1, s2], Print[n], {n, 1, 1000000000}]
|
|
CROSSREFS
|
Cf. A004648, A072608, A072609.
Sequence in context: A100032 A069350 A053845 this_sequence A110954 A000251 A122023
Adjacent sequences: A072607 A072608 A072609 this_sequence A072611 A072612 A072613
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 24 2002
|
|
|
Search completed in 0.002 seconds
|
