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

Links

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

Formula

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

Example

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

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 *)

Crossrefs

Cf. A163573, A163623, A163624.

Sequence in context: A186458 A158013 A250643 * A070796 A045093 A304978

Adjacent sequences: A163622 A163623 A163624 * A163626 A163627 A163628

Keyword

nonn,changed

Author

Zak Seidov, Aug 01 2009

Status

approved