OFFSET
1,1
COMMENTS
Here we are considering powerful numbers (first definition) A001694. Note that, by definition, 1 is powerful.
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Powerful Number.
EXAMPLE
a(2) = 17 since 17 = 4+4+9 = 8+8+1.
MATHEMATICA
pwfQ[n_] := n==1 || Min[Transpose[FactorInteger@n][[2]]] > 1; lim = 5000; pt = Select[Range[lim], pwfQ]; t = Table[0, {i, lim}]; Do[v = pt[[i]]+pt[[j]]+pt[[k]]; If[v <= lim, t[[v]]++ ], {i, Length@pt}, {j, i}, {k, j}]; Table[Position[t, k][[1, 1]], {k, 60}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Jan 21 2006
STATUS
approved