OFFSET
1,3
COMMENTS
A variant of A036262, which is the main entry for this array.
REFERENCES
R. K. Guy, Unsolved Problems Number Theory, A10.
C. A. Pickover, The Math Book, Sterling, NY, 2009; see p. 410.
LINKS
T. D. Noe, Rows n=1..100 of triangle, flattened
A. M. Odlyzko, Iterated absolute values of differences of consecutive primes, Math. Comp. 61 (1993), 373-380.
Wikipedia, Gilbreath's conjecture.
EXAMPLE
Table begins (conjecture is leading term is always 1):
2 3 5 7 11 13 17 19 23 ...
1 2 2 4 2 4 2 4 ...
1 0 2 2 2 2 2 ...
1 2 0 0 0, 0 ...
1 2 0 0 0 ...
1 2 0 0 ...
...
MATHEMATICA
max = 15; triangle = Rest[ NestList[ Abs[ Differences[#] ]& , Prime[ Range[max] ], max] ]; Flatten[ Table[ triangle[[n-k+1, k]], {n, 1, max-1}, {k, 1, n}]] (* Jean-François Alcover, Jan 23 2012 *)
CROSSREFS
KEYWORD
AUTHOR
EXTENSIONS
More terms from Naohiro Nomoto, May 22 2001
STATUS
approved