|
%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
|
