A217357 Semiprimes p such that next semiprime after p is p+30.
32777, 88649, 91799, 113107, 165697, 273257, 310103, 322211, 326137, 460963, 466063, 468877, 480443, 483223, 506509, 509131, 553349, 564347, 565493, 587611, 616771, 623257, 624959, 625619, 739177, 766799, 777163, 826657, 832357, 834123, 845177, 860873, 916163
Offset: 1
Keywords
Examples
32777 =A001358(8112) = 73*449, 32807 = A001358(8113) = 3*619, 88649 =A001358(20880) = 11*8059, 88679 = A001358(20881) = 71*1249.
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
Programs
-
Magma
IsSemiprime:=func
; [n: n in [4..1000000] | IsSemiprime(n) and IsSemiprime(n+30) and forall{n+i: i in [1..29] | not IsSemiprime(n+i)}]; // Bruno Berselli, Oct 01 2012 -
Mathematica
Select[Partition[Select[Range[10^6],PrimeOmega[#]==2&],2,1],#[[2]]-#[[1]] == 30&][[All,1]] (* Harvey P. Dale, May 06 2022 *)
Comments