%I M2718 N1089 #35 May 10 2023 10:16:08
%S 3,8,14,14,25,24,23,22,25,59,98,97,98,97,174,176,176,176,176,291,290,
%T 289,740,874,873,872,873,872,871,870,869,868,867,866,2180,2179,2178,
%U 2177,2771,2770,2769,2768,2767,2766,2765,2764,2763,2763,2763,2763,3366,4208,4207
%N Construct a triangle as in A036262. Sequence is one less than the position of the first number larger than 2 in the n-th row (n-th difference).
%C Related to Gilbreath conjecture.
%D W. Sierpiński, A Selection of Problems in the Theory of Numbers. Macmillan, NY, 1964, p. 35.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H T. D. Noe, <a href="/A000232/b000232.txt">Table of n, a(n) for n=1..274</a>
%H Chris Caldwell, <a href="https://t5k.org/glossary/page.php?sort=GilbreathsConjecture">Gilbreath's conjecture</a>
%H Albert N. Debono, <a href="http://web.archive.org/web/20060215084642/http://www.eng.um.edu.mt/~andebo/numbers/numcom11.htm">NUMBERS AND COMPUTERS (11)</a>
%H R. B. Killgrove and K. E. Ralston, <a href="http://dx.doi.org/10.1090/S0025-5718-59-99262-2">On a conjecture concerning the primes</a>, Math. Comp., 13 (1959), 121-122.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GilbreathsConjecture.html">Gilbreath's Conjecture</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%F a(n) = A036277(n) - 1. - _T. D. Noe_, Feb 03 2007
%p A000232 := proc(n)
%p local k;
%p for k from 1 do
%p if A036262(n,k) > 2 then
%p return k-1 ;
%p end if;
%p end do:
%p end proc:
%p seq(A000232(n),n=1..40) ; # _R. J. Mathar_, May 10 2023
%t max = 10^4; triangle = NestList[Abs[Differences[#]] &, Prime[Range[max]], max]; a[n_] := (p = Position[triangle[[n + 1]], k_ /; k > 2, 1, 1]; If[p == {}, Nothing, p[[1, 1]] - 1]); Table[a[n], {n, 1, Sqrt[max]}] (* _Jean-François Alcover_, Feb 06 2016 *)
%Y Cf. A001549.
%K nonn
%O 1,1
%A _N. J. A. Sloane_
%E Edited by _Robert G. Wilson v_, Aug 18 2002
%E More terms from _Jean-François Alcover_, Feb 06 2016