A089530 A023204 indexed by A000040.
1, 3, 4, 6, 7, 8, 10, 14, 15, 16, 19, 21, 24, 25, 30, 31, 33, 34, 37, 39, 40, 44, 45, 46, 48, 49, 50, 57, 59, 61, 63, 68, 70, 71, 75, 76, 78, 80, 85, 90, 91, 93, 96, 97, 99, 101, 102, 103, 109, 111, 112, 113, 117, 118, 120, 131, 132, 137, 139, 140, 144, 147, 149, 154
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [1..250] | IsPrime(2*NthPrime(n)+3)]; // Vincenzo Librandi, May 02 2016
-
Mathematica
Select[Range[160], PrimeQ[2 Prime[#] + 3] &] (* Vincenzo Librandi, May 02 2016 *)