OFFSET
1,1
LINKS
Lekraj Beedassy, Table of n, a(n) for n = 1..35
FORMULA
MATHEMATICA
s={}; f[{p_, e_}]:=e*p; Do[a=(10^n/2)^2; While[PrimeOmega[a]!=2||Total[f/@FactorInteger[a]]!=10^n, a=a-1]; AppendTo[s, a], {n, 11}]; s (* James C. McMahon, Apr 13 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Feb 11 2008
STATUS
approved
