A275248 Sequence of pairwise relatively prime numbers of class P_4 (see comment in A275246).

10, 21, 187, 247, 713, 1073, 1927, 2279, 3953, 4331, 6059, 7031, 9991, 10807, 13843, 14803, 20413, 20989, 26219, 28199, 34189, 34933, 41567, 44377, 52891, 54731, 61937, 66013, 74513, 76151, 86881, 91123, 103603, 106829, 122491, 125291, 139093, 142859, 155989

Offset

1,1

Links

Table of n, a(n) for n=1..39.

Mathematica

k = 4; t = Union[{2 (k + 1)}, Select[# NextPrime[#, 2] &@ Prime@ Range@ 120, # > 2 (k + 1) &]]; Last@ Select[#, ListQ@ # &] &@ Table[If[Length@ t < n, 0, t = DeleteCases[t, k_ /; MemberQ[Select[Drop[t, n], ! CoprimeQ[#, t[[n]]] &], k]]], {n, Length@ t}] (* Michael De Vlieger, Jul 21 2016 *)

Crossrefs

Cf. A000040, A001248, A089581, A275246, A275249, A275251, A275252, A275253.

Sequence in context: A242831 A177131 A177180 * A041833 A153317 A110418

Adjacent sequences: A275245 A275246 A275247 * A275249 A275250 A275251

Keyword

nonn

Author

Vladimir Shevelev and Peter J. C. Moses, Jul 21 2016

Status

approved