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

Author

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

Keywords

• nonn

Crossrefs

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

Programs

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