A022458 a(n) = prime(2n-1) mod prime(n).

0, 2, 1, 3, 1, 5, 7, 9, 13, 9, 11, 9, 15, 17, 15, 21, 19, 27, 23, 25, 33, 33, 31, 33, 33, 31, 35, 43, 51, 51, 29, 45, 39, 53, 49, 51, 53, 53, 55, 55, 61, 69, 57, 63, 67, 69, 65, 53, 55, 65, 81, 85, 89, 85, 85, 81, 79, 89, 89, 91, 95, 91, 77, 87, 101, 105, 89, 87

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Mathematica

Table[Mod[Prime[2n-1], Prime[n]], {n, 70}] (* Harvey P. Dale, Aug 10 2012 *)

Prog

(PARI) for(n=1, 50, print1(prime(2*n-1) % prime(n), ", ")) \\ G. C. Greubel, Feb 28 2018
(Magma) [NthPrime(2*n-1) mod NthPrime(n): n in [1..50]]; // G. C. Greubel, Feb 28 2018

Crossrefs

Sequence in context: A341865 A347982 A321738 * A084419 A119606 A034850

Adjacent sequences: A022455 A022456 A022457 * A022459 A022460 A022461

Keyword

nonn

Author

Clark Kimberling

Status

approved