|
%I #14 Nov 07 2014 11:55:48
%S 1,1,2,1,3,2,4,3,1,5,4,4,2,6,6,5,3,7,8,4,6,1,9,4,8,10,6,7,2,12,5,9,12,
%T 8,8,3,15,8,6,10,9,14,4,16,10,9,4,18,12,7,11,12,16,1,6,20,12,10,5,21,
%U 16,8,12,15,18,2,8,24,18,14,11,8,16,6,24,20,9,9,25,13,18,20,3
%N Product of exponents of prime factorization of n by prime signature: A005361(A025487).
%H Álvar Ibeas, <a href="/A052306/b052306.txt">Table of n, a(n) for n = 1..10000</a>
%o (PARI) lista() = {v = readvec("b025487.txt"); for (i=1, #v, f = factor(v[i]); print1(prod(k=1, #f~, f[k,2]), ", "););} \\ _Michel Marcus_, Nov 02 2014
%Y Cf. A005361, A025487.
%K nonn
%O 1,3
%A _Christian G. Bower_, Nov 15 1999
%E Offset updated by _Matthew Vandermast_, Nov 08 2008
|
