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

Author

Yasutoshi Kohmoto, Feb 25 2005

Keywords

• nonn

Examples

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

Links

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

Crossrefs

Cf. A001223.

Programs

Magma

A102551:= func< n | Floor(NthPrime(n)/(NthPrime(n+1)-NthPrime(n))) >;
[A102551(n): n in [1..120]]; // G. C. Greubel, Feb 02 2025

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 *)

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

Extensions

More terms from Emeric Deutsch, Feb 26 2005