login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A272307 Lesser of two consecutive semiprimes whose difference is also semiprime. 5
10, 15, 51, 58, 65, 87, 111, 123, 129, 146, 209, 226, 237, 249, 274, 278, 291, 305, 335, 346, 365, 371, 377, 382, 403, 407, 427, 447, 454, 485, 489, 493, 497, 505, 529, 538, 545, 573, 591, 597, 629, 635, 649, 681, 699, 707, 713, 749, 767, 781, 785, 803, 807, 831, 843, 889, 901 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
EXAMPLE
65 is in the sequence because 65 = 5*13, the next semiprime is 69 = 3*23, and 69-65 = 4 = 2*2, is also semiprime.
MATHEMATICA
s[n_] := PrimeOmega@n==2; L=Select[Range@910, s]; Pick[ Most@L, s /@ Differences@ L] (* Giovanni Resta, Apr 25 2016 *)
Select[Partition[Select[Range[1000], PrimeOmega[#]==2&], 2, 1], PrimeOmega[#[[2]]-#[[1]]]==2&][[All, 1]] (* Harvey P. Dale, Oct 13 2022 *)
PROG
(PARI)
proxsem(n)=local(p, s, r); s=0; p=n; while(s==0, p+=1; if(bigomega(p)==2, s=1; r=p)); p
{for(i=1, 1000, if(bigomega(i)==2, a=proxsem(i); if(bigomega(a-i)==2, print1(i, ", "))))}
CROSSREFS
Sequence in context: A048061 A188651 A330203 * A092192 A119039 A047189
KEYWORD
nonn
AUTHOR
Antonio Roldán, Apr 25 2016
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 07:25 EDT 2024. Contains 370955 sequences. (Running on oeis4.)