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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A184862 Primes of the form floor(n+nr-r/2), where r=(1+sqrt(5))/2. 3
7, 17, 41, 43, 59, 67, 101, 103, 109, 127, 137, 151, 179, 211, 229, 263, 271, 281, 313, 331, 347, 373, 389, 397, 431, 433, 439, 449, 457, 467, 491, 499, 509, 541, 569, 577, 593, 601, 617, 619, 643, 653, 661, 677, 719, 727, 761, 787, 797, 821, 823, 829, 839, 857, 863, 881, 907, 941, 967, 983, 991, 1009, 1033, 1049, 1051, 1069, 1093, 1109, 1117, 1151, 1153, 1187, 1193, 1213, 1229, 1237, 1279, 1289, 1297, 1321, 1373, 1381, 1399, 1423, 1433, 1439, 1483, 1499, 1543, 1549, 1559, 1567 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

See "conjecture generalized" at A184774.

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. A007064, A184774, A184859, A184863, A184864.

Sequence in context: A058274 A322597 A193214 * A194772 A193546 A268255

Adjacent sequences:  A184859 A184860 A184861 * A184863 A184864 A184865

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 October 21 01:18 EDT 2019. Contains 328291 sequences. (Running on oeis4.)