A075281 Interprimes which are of the form s*prime, s=6.
12, 18, 30, 42, 102, 138, 186, 246, 282, 426, 582, 618, 642, 822, 834, 1158, 1698, 1878, 2022, 2082, 2094, 2238, 2382, 2526, 2658, 2802, 2922, 2946, 3462, 3522, 3558, 3714, 3786, 3858, 3918, 4038, 4146, 4206, 4638, 4722, 4866, 4962, 5442, 5946, 6126
Offset: 1
Examples
138 is an interprime and 138/6 = 23 is prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
s=6; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 1000}], PrimeQ[ #/s]&] Select[Total[#]/2&/@Partition[Prime[Range[1000]],2,1],PrimeQ[#/6]&] (* Harvey P. Dale, Dec 18 2021 *)
Comments