A100031 Bisection of A005384.
2, 5, 23, 41, 83, 113, 173, 191, 239, 281, 359, 431, 491, 593, 653, 683, 743, 809, 953, 1019, 1049, 1223, 1289, 1439, 1481, 1511, 1583, 1733, 1889, 1931, 2003, 2063, 2129, 2273, 2351, 2399, 2543, 2693, 2741, 2819, 2939, 2969, 3299, 3359, 3413, 3491, 3593
Offset: 0
Crossrefs
Cf. A005384.
Programs
-
Maple
A:={}: for n from 1 to 608 do if isprime(2*ithprime(n)+1)=true then A:=A union {ithprime(n)} else A:=A fi od: B:=convert(A, list): seq(B[2*j-1],j=1..nops(B)/2);
Extensions
More terms from Emeric Deutsch, Dec 09 2004