A077338 a(n) = smallest multiple of prime(n) such that a(n) +1 is a multiple of prime(n+1).

2, 9, 20, 21, 77, 169, 170, 114, 115, 464, 961, 1147, 902, 516, 423, 530, 1829, 3416, 1206, 2627, 4818, 1659, 1245, 7565, 7372, 5252, 2781, 5885, 9265, 13334, 4191, 3013, 9590, 2085, 11324, 19781, 21352, 6846, 4843, 5190, 16289, 31132, 18527, 28564

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Example

a(5) = 77 as prime(5) = 11,77 = 11*7 and 78 = 6*13= a multiple of prime(6).

Mathematica

Do[k = 1; While[Mod[k*Prime[n] + 1, Prime[n+1]] != 0, k++ ]; Print[k*Prime[n]], {n, 1, 50}] (* Ryan Propper, Jul 09 2005 *)

Crossrefs

Sequence in context: A038249 A116014 A090939 * A047883 A042915 A007115

Adjacent sequences: A077335 A077336 A077337 * A077339 A077340 A077341

Keyword

nonn

Author

Amarnath Murthy, Nov 04 2002

Extensions

More terms from Ryan Propper, Jul 09 2005

Status

approved