|
%I #11 Sep 08 2022 08:45:14
%S 3,7,29,79,2137,3391,5437,7603,25849,36373,51059,54101,74357,88327,
%T 92033,119089,154387,179743,263063,275813,328093,540577,645529,671299,
%U 694333,761713,824951,872281,1133147,1142809,1190177,1206767,1442333
%N Let p(k) = k-th prime; sequence gives primes q of the form q = k*p(k) + 1 for some k.
%H Vincenzo Librandi, <a href="/A096064/b096064.txt">Table of n, a(n) for n = 1..1000</a>
%e 29 is in the sequence because the fourth prime is 7 and 4 * 7 + 1 = 29.
%t Select[Table[Prime[n]*n + 1, {n, 455}], PrimeQ]
%o (Magma) [a: n in [0..500] | IsPrime(a) where a is NthPrime(n)*n + 1 ]; // _Vincenzo Librandi_, Oct 05 2012
%Y Cf. A086172, A096065.
%K nonn
%O 1,1
%A _Alonso del Arte_, Jul 20 2004
%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Oct 05 2012
|
