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,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Formula

a(n)=k such that A023204(n)=A000040(k).

Mathematica

Select[Range[160], PrimeQ[2 Prime[#] + 3] &] (* Vincenzo Librandi, May 02 2016 *)

Prog

(Magma) [n: n in [1..250] | IsPrime(2*NthPrime(n)+3)]; // Vincenzo Librandi, May 02 2016

Crossrefs

Cf. A023204, A089531, A089532.

Sequence in context: A283482 A283471 A127260 * A201820 A191775 A047515

Adjacent sequences: A089527 A089528 A089529 * A089531 A089532 A089533

Keyword

nonn,easy

Author

Ray Chandler, Nov 07 2003

Status

approved