|
%I #13 Jan 19 2023 03:13:24
%S 3,5,7,11,19,29,13,59,37,31,47,67,53,41,97,73,113,103,43,71,233,61,
%T 151,109,101,251,107,587,79,223,167,311,239,137,139,359,181,257,337,
%U 163,173,881,563,149,409,157,179,293,127,331,191,269,317,83,277,23,821,373,271
%N a(n) = (A093441(n+1)-1)/(A093441(n)-1).
%H Amiram Eldar, <a href="/A093442/b093442.txt">Table of n, a(n) for n = 1..500</a>
%t a[1] = 3; a[n_] := a[n] = Block[{k = m = a[n - 1] - 1}, k *= 2; While[ ! PrimeQ[k + 1] || ! SquareFreeQ[k], k += m]; k + 1]; Table[(a[n + 1] - 1)/(a[n] - 1), {n, 60}] (* _Stefan Steinerberger_, Apr 03 2006 *)
%Y Cf. A093441.
%Y Cf. A083771. - _R. J. Mathar_, Sep 05 2008
%K nonn
%O 1,1
%A _Amarnath Murthy_, Apr 01 2004
%E More terms from _Stefan Steinerberger_, Apr 03 2006
|
