cp's OEIS Frontend

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

%I A102551 #15 Feb 02 2025 22:34:02
%S A102551 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,
%T A102551 53,27,8,31,21,68,13,74,25,26,40,27,28,89,18,95,48,98,16,17,55,113,57,
%U A102551 38,119,24,41,42,43,134,45,69,140,28,20,76,155,78,22,55,33,173,87,58,44,61
%N A102551 a(n) = [prime(n)/(prime(n+1)-prime(n))], where [x] means the integer part of x.
%H A102551 Michael De Vlieger, <a href="/A102551/b102551.txt">Table of n, a(n) for n = 1..10000</a>
%e A102551 a(5)=5 because 11/(13-11)=11/2 and floor(11/2)=5.
%p A102551 a:=n->floor(ithprime(n)/(ithprime(n+1)-ithprime(n))): seq(a(n),n=1..80); # _Emeric Deutsch_, Feb 26 2005
%t A102551 Table[Floor[Prime[n]/(Prime[n + 1] - Prime[n])], {n, 73}] (* _Michael De Vlieger_, Oct 17 2016 *)
%o A102551 (Magma)
%o A102551 A102551:= func< n | Floor(NthPrime(n)/(NthPrime(n+1)-NthPrime(n))) >;
%o A102551 [A102551(n): n in [1..120]]; // _G. C. Greubel_, Feb 02 2025
%o A102551 (SageMath)
%o A102551 def A102551(n): return nth_prime(n)//(nth_prime(n+1) - nth_prime(n))
%o A102551 print([A102551(n) for n in range(1,120)]) # _G. C. Greubel_, Feb 02 2025
%Y A102551 Cf. A001223.
%K A102551 nonn
%O A102551 1,1
%A A102551 _Yasutoshi Kohmoto_, Feb 25 2005
%E A102551 More terms from _Emeric Deutsch_, Feb 26 2005