A070748 a(n) = signum(sin(prime(n))), where signum=A057427, prime=A000040.

1, 1, -1, 1, -1, 1, -1, 1, -1, -1, -1, -1, -1, -1, 1, 1, 1, -1, -1, 1, -1, -1, 1, 1, 1, 1, 1, 1, 1, -1, 1, -1, -1, 1, -1, 1, -1, -1, -1, -1, 1, -1, 1, -1, 1, -1, -1, 1, 1, 1, 1, 1, 1, -1, -1, -1, -1, 1, 1, -1, 1, -1, -1, 1, -1, 1, -1, -1, 1, -1, 1, 1, 1

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

Sign[Sin[Prime[Range[10000]]]] (* Andrey Mitin, Apr 22 2022 *)

Prog

(PARI) a(n)=(-1)^(prime(n)/Pi%2\1) \\ Charles R Greathouse IV, Jun 13 2013

Crossrefs

Cf. A070747, A070750, A070749, A070753, A070754.

Sequence in context: A332433 A057077 A262725 * A154990 A209615 A242179

Adjacent sequences: A070745 A070746 A070747 * A070749 A070750 A070751

Keyword

sign

Author

Reinhard Zumkeller, May 04 2002

Status

approved