login
Central terms of the triangle of iterated absolute differences of lucky numbers.
2

%I #9 Sep 22 2021 14:21:31

%S 1,4,2,2,2,2,2,0,2,2,0,0,0,0,0,2,2,0,0,2,0,0,0,2,2,0,2,2,2,2,0,2,2,0,

%T 0,0,0,2,0,2,0,0,2,0,2,0,2,2,0,2,2,2,2,0,0,2,0,0,0,0,2,0,0,0,2,2,0,0,

%U 2,0,2,2,2,0,0,0,0,0,0,0,2,0,0,0,2,0

%N Central terms of the triangle of iterated absolute differences of lucky numbers.

%H Reinhard Zumkeller, <a href="/A254969/b254969.txt">Table of n, a(n) for n = 0..1000</a>

%F a(n) = A254967(2*n,n).

%t nmax = 85; (* index of last term *)

%t imax = 600; (* last index of initial lucky array L *)

%t L = Table[2 i + 1, {i, 0, imax}];

%t For[n = 2, n < Length[L], r = L[[n++]]; L = ReplacePart[L, Table[r*i -> Nothing, {i, 1, Length[L]/r}]]];

%t T[n_, n_] := If[n + 1 <= Length[L], L[[n + 1]], Print["imax should be increased"]; 0];

%t T[n_, k_] := T[n, k] = Abs[T[n, k + 1] - T[n - 1, k]];

%t a[n_] := T[2n, n];

%t Table[a[n], {n, 0, nmax}] (* _Jean-François Alcover_, Sep 22 2021 *)

%o (Haskell)

%o a254969 n = a254967 (2 * n) n

%Y Cf. A254967, A000959.

%K nonn

%O 0,2

%A _Reinhard Zumkeller_, Feb 11 2015