A184792 -id:A184792 - cp's OEIS frontend

A095280 Lower Wythoff primes, i.e., primes in A000201.

3, 11, 17, 19, 29, 37, 43, 53, 59, 61, 67, 71, 79, 97, 101, 103, 113, 127, 131, 137, 139, 163, 173, 179, 181, 197, 199, 211, 223, 229, 239, 241, 257, 263, 271, 281, 283, 307, 313, 317, 331, 347, 349, 359, 367, 373, 383, 389, 401, 409, 419, 433

Offset: 1

Antti Karttunen, Jun 04 2004

nonn

Contains all primes p whose Zeckendorf-expansion A014417(p) ends with an even number of 0's.

For generalizations and conjectures, see A184774.

Robert Israel, Table of n, a(n) for n = 1..10000
Antti Karttunen and J. Moyer, C-program for computing the initial terms of this sequence

Intersection of A000040 & A000201. Complement of A095281 in A000040. Cf. A095080, A095083, A095084, A095290, A184792, A184793, A184794, A184796.

R:= NULL: count:= 0:
for n from 1 while count < 100 do
  p:= floor(n*phi);
  if isprime(p) then R:= R,p; count:= count+1 fi
od:
R; # Robert Israel, Jan 17 2023

Mathematica
```
(See A184792.)
```

from math import isqrt
from itertools import count, islice
from sympy import isprime
def A095280_gen(): # generator of terms
    return filter(isprime,((n+isqrt(5*n**2)>>1) for n in count(1)))
A095280_list = list(islice(A095280_gen(),30)) # Chai Wah Wu, Aug 16 2022

A184793 Numbers m such that prime(m) is of the form floor(k*r), where r=(1+sqrt(5))/2; complement of A180736.

Original entry on oeis.org

2, 5, 7, 8, 10, 12, 14, 16, 17, 18, 19, 20, 22, 25, 26, 27, 30, 31, 32, 33, 34, 38, 40, 41, 42, 45, 46, 47, 48, 50, 52, 53, 55, 56, 58, 60, 61, 63, 65, 66, 67, 69, 70, 72, 73, 74, 76, 77, 79, 80, 81, 84, 86, 87, 88, 89, 91, 93, 94, 95, 96, 97, 98, 103, 104, 105, 106, 107, 108, 110, 112, 114, 115, 117, 118, 119, 121, 122, 123, 131, 134, 137, 138, 139, 140, 142, 143, 146, 148, 149, 152, 153, 155, 157, 160, 162, 163

Offset: 1

Clark Kimberling, Jan 22 2011

nonn

			See A184792.

Cf. A184774, A184792, A184795.

Mathematica
```
(See A184792.)
```

A184795 Numbers m such that prime(m) is of the form floor(k*s), where s=(3+sqrt(5))/2; complement of A184793.

Original entry on oeis.org

1, 3, 4, 6, 9, 11, 13, 15, 21, 23, 24, 28, 29, 35, 36, 37, 39, 43, 44, 49, 51, 54, 57, 59, 62, 64, 68, 71, 75, 78, 82, 83, 85, 90, 92, 99, 100, 101, 102, 109, 111, 113, 116, 120, 124, 125, 126, 127, 128, 129, 130, 132, 133, 135, 136, 141, 144, 145, 147, 150, 151, 154, 156, 158, 159, 161, 164, 168, 170, 172, 173, 175

Offset: 1

Clark Kimberling, Jan 22 2011

nonn

Indices of primes that appear in the Beatty sequence A001950, the Beatty sequence of A104457. - R. J. Mathar, Jan 22 2011

			Prime(1)=2 with k=1. Prime(3)=5 with k=2. Prime(4)=7 with k=3.

Cf. A184774, A184792, A184793.

Mathematica
```
(See A184792.)
```

A184794 Numbers k such that floor(k*s) is prime, where s = (3 + sqrt(5))/2.

Original entry on oeis.org

1, 2, 3, 5, 9, 12, 16, 18, 28, 32, 34, 41, 42, 57, 58, 60, 64, 73, 74, 87, 89, 96, 103, 106, 112, 119, 129, 135, 145, 152, 161, 165, 168, 177, 183, 200, 207, 209, 213, 229, 232, 236, 245, 252, 261, 264, 268, 271, 275, 278, 280, 284, 287, 291, 294, 310, 316, 317, 326, 330, 335, 339, 348, 355, 358, 362, 371, 381, 387, 390, 394, 397, 401, 417, 427, 429, 440, 456, 459, 465, 481, 488, 497, 498, 504, 507, 520, 546, 550, 553, 555, 562, 566, 568, 569, 582, 585, 592

Offset: 1

Clark Kimberling, Jan 22 2011

nonn

			See A184792.

Cf. A184774, A184792, A184795.

Mathematica
```
(See A184792.)
```

cp's OEIS Frontend

A095280 Lower Wythoff primes, i.e., primes in A000201.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Python

A184793 Numbers m such that prime(m) is of the form floor(k*r), where r=(1+sqrt(5))/2; complement of A180736.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A184795 Numbers m such that prime(m) is of the form floor(k*s), where s=(3+sqrt(5))/2; complement of A184793.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A184794 Numbers k such that floor(k*s) is prime, where s = (3 + sqrt(5))/2.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica