A022460 a(n) = prime(3*n) mod prime(n).

1, 1, 3, 2, 3, 9, 5, 13, 11, 26, 13, 3, 3, 9, 9, 11, 56, 7, 1, 68, 15, 1, 15, 3, 88, 94, 7, 5, 13, 11, 106, 110, 112, 1, 124, 140, 136, 130, 142, 140, 140, 158, 154, 164, 170, 190, 178, 158, 172, 176, 184, 194, 214, 200, 206, 208, 212, 220, 220, 226, 244

Offset

1,3

Links

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

Formula

a(n) = A031336(n) modulo A000040(n). - Michel Marcus, Sep 30 2013

Mathematica

Table[Mod[Prime[3 n], Prime[n]], {n, 100}] (* Vincenzo Librandi, Dec 09 2014 *)

Prog

(PARI) a(n) = prime(3*n) % prime(n); \\ Michel Marcus, Sep 30 2013
(Magma) [NthPrime(3*n) mod NthPrime(n): n in [1..90]]; // Vincenzo Librandi, Dec 09 2014

Crossrefs

Sequence in context: A216829 A331846 A332310 * A010605 A120879 A118064

Adjacent sequences: A022457 A022458 A022459 * A022461 A022462 A022463

Keyword

nonn

Author

Clark Kimberling

Status

approved