OFFSET
1,1
COMMENTS
EXAMPLE
655360 is in the sequence because 655360 = 2^17 * 5 => the concatenation of the prime divisors is the number 25 and 6+5+5+3+6+0 = 25.
MAPLE
with(numtheory):for n from 1 to 10^8 do: V:=convert(n, base, 10): n1:=nops(V): s1:=sum(‘V[m]’, ‘m’=1..n1):x:=factorset(n):n1:=nops(x): s:=0:s0:=0:for i from n1 by -1 to 1 do: a:=x[i]:b:=length(a):s:=s+a*10^s0:s0:=s0+b:od: if s=s1 then print(n):else fi:od:
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, May 23 2012
STATUS
approved