OFFSET
1,1
COMMENTS
Arguably, 1 should be included in this sequence.
Prime factors taken with multiplicity. - Harvey P. Dale, Nov 28 2014
EXAMPLE
62545=5*7*1787 and 571787=83^3.
MATHEMATICA
cpfQ[n_]:=IntegerQ[Surd[FromDigits[Flatten[IntegerDigits/@Flatten[ Table[#[[1]], {#[[2]]}]&/@FactorInteger[n]]]], 3]]; Select[Range[1250000], cpfQ] (* Harvey P. Dale, Nov 28 2014 *)
PROG
(PARI) catpf(n)=my(f=factor(n), s=""); for(i=1, #f[, 1], for(j=1, f[i, 2], s=Str(s, f[i, 1]))); eval(s)
for(n=2, 1e7, if(ispower(catpf(n), 3), print1(n", ")))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Corrected and extended; also program from Charles R Greathouse IV, Apr 28 2010
STATUS
approved