OFFSET
1,6
COMMENTS
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..11325 (antidiagonals 1..150 of the array, flattened)
N. J. A. Sloane, Maple code for Gilbreath transform and related arrays
EXAMPLE
The array begins:
1, 1, 2, 2, 4, 2, 6, 4, 6, 4, 10, 4, 12, 6, 8, 8, ...
0, 1, 0, 2, 2, 4, 2, 2, 2, 6, 6, 8, 6, 2, 0, ...
1, 1, 2, 0, 2, 2, 0, 0, 4, 0, 2, 2, 4, 2, ...
0, 1, 2, 2, 0, 2, 0, 4, 4, 2, 0, 2, 2, ...
1, 1, 0, 2, 2, 2, 4, 0, 2, 2, 2, 0, ...
0, 1, 2, 0, 0, 2, 4, 2, 0, 0, 2, ...
1, 1, 2, 0, 2, 2, 2, 2, 0, 2, ...
0, 1, 2, 2, 0, 0, 0, 2, 2, ...
1, 1, 0, 2, 0, 0, 2, 0, ...
...
The first few antidiagonals are:
1
0, 1
1, 1, 2
0, 1, 0, 2
1, 1, 2, 2, 4
0, 1, 2, 0, 2, 2
1, 1, 0, 2, 2, 4, 6
0, 1, 2, 2, 0, 2, 2, 4
1, 1, 2, 0, 2, 2, 0, 2, 6
0, 1, 2, 0, 0, 2, 0, 0, 2, 4
...
MATHEMATICA
A362913[dmax_]:=With[{d=Reverse[NestList[Abs[Differences[#]]&, EulerPhi[Range[dmax]], dmax-1]]}, Array[Diagonal[d, #]&, dmax, 1-dmax]]; A362913[20] (* Generates 20 antidiagonals *) (* Paolo Xausa, May 10 2023 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
N. J. A. Sloane, May 09 2023
STATUS
approved