%I A059380
%S A059380 1,1,1,1,3,2,1,7,8,2,1,15,26,12,4,1,31,80,56,24,2,1,63,242,240,
%T A059380 124,24,6,1,127,728,992,624,182,48,4,1,255,2186,4032,3124,1200,
%U A059380 342,48,6,1,511,6560,16256,15624,7502,2400,448,72,4,1,1023,19682
%N A059380 Array of values of Jordan function J_k(n) read by antidiagonals (version 
               2).
%D A059380 L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 199, #3.
%e A059380 Array begins:
%e A059380 1, 1, 2, 2, 4, 2, 6, 4, 6, 4, 10, 4, ...
%e A059380 1, 3, 8, 12, 24, 24, 48, 48, 72, 72, ...
%e A059380 1, 7, 26, 56, 124, 182, 342, 448, 702, ...
%e A059380 1, 15, 80, 240, 624, 1200, 2400, 3840, ...
%p A059380 J := proc(n,k) local i,p,t1,t2; t1 := n^k; for p from 1 to n do if isprime(p) 
               and n mod p = 0 then t1 := t1*(1-p^(-k)); fi; od; t1; end;
%Y A059380 See A059379 and A059380 (triangle of values of J_k(n)), A000010 (J_1), 
               A059376 (J_3), A059377 (J_4), A059378 (J_5). Columns give A000225, 
               A024023, A020522, A024049, A059387, etc.
%Y A059380 Sequence in context: A161009 A111960 A130462 this_sequence A145035 A122832 
               A056151
%Y A059380 Adjacent sequences: A059377 A059378 A059379 this_sequence A059381 A059382 
               A059383
%K A059380 nonn,tabl
%O A059380 1,5
%A A059380 N. J. A. Sloane (njas(AT)research.att.com), Jan 28 2001