|
%I #5 Mar 21 2014 17:33:43
%S 0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,
%T 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,
%U 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1
%N Triangle read by rows, T(n,k) = 1 if n is prime, 0 otherwise.
%C Row sums = A061397: (0, 2, 3, 0, 5, 0, 7,...).
%H Reinhard Zumkeller, <a href="/A143536/b143536.txt">Rows n = 1..125 of table, flattened</a>
%F Triangle read by rows, T(n,k) = 1 if n is prime, 0 otherwise. Mobius transform (A054525) of triangle A143535.
%e First few rows of the triangle =
%e 0;
%e 1, 1;
%e 1, 1, 1;
%e 0, 0, 0, 0;
%e 1, 1, 1, 1, 1;
%e 0, 0, 0, 0, 0, 0;
%e 1, 1, 1, 1, 1, 1, 1;
%e ...
%o (Haskell)
%o a143536 n k = a143536_tabl !! (n-1) !! (k-1)
%o a143536_row n = a143536_tabl !! (n-1)
%o a143536_tabl = zipWith take [1..] $ map repeat a010051_list
%o -- _Reinhard Zumkeller_, Mar 21 2014
%Y Cf. A143535, A061397.
%Y Cf. A010051.
%K nonn,tabl
%O 1,1
%A _Gary W. Adamson_, Aug 23 2008
|
