A163625 Numbers k such that 120*k + 1 is a term in A163573.

106, 141, 162, 204, 414, 513, 868, 1911, 2128, 2164, 2220, 2431, 2485, 2592, 2766, 3495, 3529, 3640, 3724, 3927, 4377, 4440, 4495, 4846, 5005, 5530, 5868, 5916, 6531, 7225, 7540, 7567, 7653, 9283, 9612, 9633, 10017, 10159, 10830, 11152, 11538, 12363

Offset: 1

Author

Zak Seidov, Aug 01 2009

Keywords

• nonn

Examples

			a(1)=106 because 120*106 + 1 = 12721 = A163573(1).
		

Links

• G. C. Greubel, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A163573, A163623, A163624.

Programs

Mathematica

A163573 = {}; Do[p = Prime[n]; If[PrimeQ[(p + 1)/2] && PrimeQ[(p + 2)/3] && PrimeQ[(p + 3)/4], AppendTo[A163573, p]], {n, 2*9!}]; A163573;
Table[(A163573[[n]] - 1)/120, {n, 1, 50}] (* G. C. Greubel, Jul 30 2017 *)

Formula

a(n) = (A163573(n) - 1)/120.