A263769 - OEIS

A263769

Smallest prime q such that q == -1 (mod prime(n)-1).

2, 3, 3, 5, 19, 11, 31, 17, 43, 83, 29, 71, 79, 41, 137, 103, 173, 59, 131, 139, 71, 233, 163, 263, 191, 199, 101, 211, 107, 223, 251, 389, 271, 137, 443, 149, 311, 647, 331, 859, 1423, 179, 379, 191, 587, 197, 419, 443

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

a(n): A000040(1), A065091(1), A002145(1), A007528(1), A030433(1), A068231(1), A127576(1), A061242(1), A141857(1), A141976(1), A132236(1), A142111(1), A142198(1), A141898(1), A141926(1), A142531(1), A142004(1), A142799(1), A142068(1), A142099(1), ...

Smallest prime q such that (prime(n)^2 + q*prime(n))/(prime(n) + 1) is an integer.

LINKS

Robert Israel, Table of n, a(n) for n = 1..6000

EXAMPLE

a(4) = 5 because 5 == -1 (mod prime(4)-1) and is prime.

MAPLE

for n from 1 to 100 do

k:= ithprime(n)-1;

q:= 2;

while (1 + q) mod k <> 0 do

q:= nextprime(q)

od;

A[n]:= q;

od:

seq(A[i], i=1..1000); # Robert Israel, Oct 26 2015

MATHEMATICA

Table[q = 2; z = Prime@ n - 1; While[Mod[q, z] != z - 1, q = NextPrime@ q]; q, {n, 59}] (* Michael De Vlieger, Oct 26 2015 *)

CROSSREFS

Cf. A263730, A263770.

Cf. A000040, A065091, A002145, A007528, A030433, A068231, A127576, A061242, A141857, A141976, A132236, A142111, A142198, A141898, A141926, A142531, A142004, A142799, A142068, A142099.

Sequence in context: A154923 A154693 A065854 * A064776 A270592 A096659

Adjacent sequences: A263766 A263767 A263768 * A263770 A263771 A263772

KEYWORD

nonn

AUTHOR

Juri-Stepan Gerasimov, Oct 25 2015

EXTENSIONS

Corrected and edited by Robert Israel, Oct 26 2015,

STATUS

approved