A102551 a(n) = [prime(n)/(prime(n+1)-prime(n))], where [x] means the integer part of x.

2, 1, 2, 1, 5, 3, 8, 4, 3, 14, 5, 9, 20, 10, 7, 8, 29, 10, 16, 35, 12, 19, 13, 11, 24, 50, 25, 53, 27, 8, 31, 21, 68, 13, 74, 25, 26, 40, 27, 28, 89, 18, 95, 48, 98, 16, 17, 55, 113, 57, 38, 119, 24, 41, 42, 43, 134, 45, 69, 140, 28, 20, 76, 155, 78, 22, 55, 33, 173, 87, 58, 44, 61

Offset

1,1

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Example

a(5)=5 because 11/(13-11)=11/2 and floor(11/2)=5.

Maple

a:=n->floor(ithprime(n)/(ithprime(n+1)-ithprime(n))): seq(a(n), n=1..80); # Emeric Deutsch, Feb 26 2005

Mathematica

Table[Floor[Prime[n]/(Prime[n + 1] - Prime[n])], {n, 73}] (* Michael De Vlieger, Oct 17 2016 *)

Prog

(Magma)
A102551:= func< n | Floor(NthPrime(n)/(NthPrime(n+1)-NthPrime(n))) >;
[A102551(n): n in [1..120]]; // G. C. Greubel, Feb 02 2025
(SageMath)
def A102551(n): return nth_prime(n)//(nth_prime(n+1) - nth_prime(n))
print([A102551(n) for n in range(1, 120)]) # G. C. Greubel, Feb 02 2025

Crossrefs

Cf. A001223.

Sequence in context: A109087 A102048 A318360 * A217437 A152823 A324605

Adjacent sequences: A102548 A102549 A102550 * A102552 A102553 A102554

Keyword

nonn

Author

Yasutoshi Kohmoto, Feb 25 2005

Extensions

More terms from Emeric Deutsch, Feb 26 2005

Status

approved