A096065 Let p(k) = k-th prime; sequence gives primes q of the form q = k*p(k) - 1 for some k.
5, 151, 443, 601, 1097, 3389, 13553, 20921, 25847, 32719, 41669, 46153, 56813, 66109, 84691, 119087, 129449, 150559, 188857, 201847, 206273, 240173, 266863, 271109, 310577, 318751, 346553, 395749, 430819, 446951, 451933, 507079, 645527
Offset: 0
Keywords
Examples
a(3)=443 because the twelfth prime is 37 and 12 * 37 - 1 = 443.
Programs
-
Mathematica
Select[Table[Prime[n]*n - 1, {n, 320}], PrimeQ]