A356769 Semiprime gaps (A065516) in the order of first occurrences.
2, 3, 1, 4, 6, 7, 5, 11, 9, 8, 10, 14, 13, 12, 19, 15, 17, 20, 16, 18, 24, 22, 21, 25, 28, 27, 30, 32, 38, 23, 31, 26, 36, 35, 34, 29, 47, 33, 40, 41, 54, 50, 43, 55, 39, 48, 37, 42, 45, 44, 53, 70, 46, 56, 74, 52, 62, 51, 66, 49, 58, 68, 59, 63, 67, 60, 57, 61, 72, 64, 65, 76, 69, 73, 75, 82, 85
Offset: 1
Keywords
Programs
-
Mathematica
s={2};n=6;Do[m=n+1;While[PrimeOmega[m]!= 2,m++];If[FreeQ[s,m-n],AppendTo[s,m-n];Print[{n,m-n}]];n=m,{10^8}];s