%I #8 Aug 14 2017 23:04:17

%S 1,2,3,4,10,6,7,16,27,10,33,12,13,42,15,16,85,18,114,20,21,22,46,72,

%T 25,52,189,84,29,60,31,192,33,34,70,36,185,228,39,80,164,420,43,220,

%U 45,138,94,48,147,50,51,312,106,270,55,168,171,348,59,60,122,620,126,256,195

%N Beginning with 1, smallest multiple of n such that a(n)*a(n-1) + 1 is a prime.

%p a[1] := 1:for n from 2 to 120 do l := 1:while(not isprime(a[n-1]*l*n+1)) do l := l+1: od:a[n] := l*n:od:seq(a[j],j=1..120); # _Sascha Kurz_

%K nonn

%O 1,2

%A _Amarnath Murthy_, Sep 13 2003

%E Corrected and extended by _Sascha Kurz_, Sep 22 2003