login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A184863 Numbers k such that floor(n+nr-r/2) are prime, where r=(1+sqrt(5))/2. 3
3, 7, 16, 17, 23, 26, 39, 40, 42, 49, 53, 58, 69, 81, 88, 101, 104, 108, 120, 127, 133, 143, 149, 152, 165, 166, 168, 172, 175, 179, 188, 191, 195, 207, 218, 221, 227, 230, 236, 237, 246, 250, 253, 259, 275, 278, 291, 301, 305, 314, 315, 317, 321, 328, 330, 337, 347, 360, 370, 376, 379, 386, 395, 401, 402, 409, 418, 424, 427, 440, 441, 454, 456, 464, 470, 473, 489, 493, 496, 505, 525, 528, 535, 544, 548, 550, 567, 573, 590, 592, 596, 599 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..92.

MATHEMATICA

r=(1+5^(1/2))/2;

a[n_]:=Floor [n+n*r-r/2];

Table[a[n], {n, 1, 120}]  (* A007064 *)

t1={}; Do[If[PrimeQ[a[n]], AppendTo[t1, a[n]]], {n, 1, 600}]; t1

t2={}; Do[If[PrimeQ[a[n]], AppendTo[t2, n]], {n, 1, 600}]; t2

t3={}; Do[If[MemberQ[t1, Prime[n]], AppendTo[t3, n]], {n, 1, 300}]; t3

*( Lists t1, t2, t3 match A184862, A184863, A184864.)

CROSSREFS

Cf. A184862, A184864.

Sequence in context: A260465 A060092 A035283 * A162159 A190890 A116040

Adjacent sequences:  A184860 A184861 A184862 * A184864 A184865 A184866

KEYWORD

nonn

AUTHOR

Clark Kimberling, Jan 23 2011

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 25 09:40 EDT 2019. Contains 326323 sequences. (Running on oeis4.)