login
A211023
Value on the axis "y" of the endpoint of the structure of A211000 if the index is prime.
7
0, -1, -3, -5, -5, -3, -3, -5, -5, -3, -1, 1, 1, -1, -1, 1, 3, 5, 7, 7, 5, 3, 3, 5, 5, 5, 7, 7, 5, 5, 7, 7, 5, 3, 1, -1, -3, -5, -5, -3, -1, 1, 3, 5, 5, 3, 3, 3, 3, 5, 5, 3, 1, -1, -3, -5, -7, -9, -11, -11, -9, -7, -5, -5, -7, -7, -5, -3, -1, 1, 1, -1, -1, 1, 3
OFFSET
1,3
COMMENTS
a(n) is also the value on the axis "y" of the n-th inflection point in the structure of A211000.
The behavior seems to be as modular arithmetic but in a growing structure. The structure of A211000 looks like essentially a column of tangent circles of radius 1. The structure of A211000 arises from the prime numbers A000040.
FORMULA
a(n) = A211011(A000040(n)).
MATHEMATICA
A211023[upto_]:=Module[{ep={0, 0}, angle=3/4Pi, turn=Pi/2}, Table[If[!PrimeQ[n], If[n>5&&PrimeQ[n-1], turn*=-1]; angle-=turn]; ep=AngleVector[ep, {Sqrt[2], angle}]; If[PrimeQ[n+1], Last[ep], Nothing], {n, 0, upto-1}]];
A211023[500] (* Paolo Xausa, Jan 14 2023 *)
KEYWORD
sign
AUTHOR
Omar E. Pol, Mar 31 2012
STATUS
approved