login
A275248
Sequence of pairwise relatively prime numbers of class P_4 (see comment in A275246).
8
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
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 *)
KEYWORD
nonn
AUTHOR
STATUS
approved