login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A104037 Numbers of primes between two sexy primes. 1
1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Sexy Primes.

MAPLE

p:=1: q:= 0: r:= 1: s:= 1: count:= 0: Res:= NULL:

while count < 100 do

  t:= charfcn[{true}](isprime(p+6));

  if t=1 and q=1 then

     count:= count + 1;

     Res:= Res, r+s;

  fi;

  p:= p+2;

  q:= r; r:= s; s:= t;

od:

Res; # Robert Israel, Jun 23 2019

CROSSREFS

Cf. A023201 (sexy primes), A046117.

Sequence in context: A071029 A071030 A268240 * A014044 A014079 A071032

Adjacent sequences:  A104034 A104035 A104036 * A104038 A104039 A104040

KEYWORD

easy,nonn

AUTHOR

Giovanni Teofilatto, Mar 31 2005

EXTENSIONS

Corrected and extended by Robert Israel, Jun 23 2019

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 9 14:27 EDT 2020. Contains 336323 sequences. (Running on oeis4.)