A139393 a(n) = Sum_{i=1..m} e(i) * 10^(m-i) where e(1) <= ... <= e(m) are the nonzero exponents in the prime factorization of n: a representation of the prime signature of n.
0, 1, 1, 2, 1, 11, 1, 3, 2, 11, 1, 12, 1, 11, 11, 4, 1, 12, 1, 12, 11, 11, 1, 13, 2, 11, 3, 12, 1, 111, 1, 5, 11, 11, 11, 22, 1, 11, 11, 13, 1, 111, 1, 12, 12, 11, 1, 14, 2, 12, 11, 12, 1, 13, 11, 13, 11, 11, 1, 112, 1, 11, 12, 6, 11, 111, 1, 12, 11, 111, 1, 23, 1, 11, 12, 12, 11, 111
Offset: 1
Links
- Antti Karttunen, Table of n, a(n) for n = 1..1023
- Eric Weisstein's World of Mathematics, Prime Signature.
- Wikipedia, Prime signature.
Programs
-
PARI
A139393(n)=sum(i=1,#n=vecsort(factor(n)[,2]),10^(#n-i)*n[i])
Comments