This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A235323 #14 Jun 16 2021 19:49:33
%S A235323 0,4,9,4,25,25,49,4,9,49,121,25,169,81,64,4,289,25,361,49,100,169,529,
%T A235323 25,25,225,9,81,841,100,961,4,196,361,144,25,1369,441,256,49,1681,144,
%U A235323 1849,169,64,625,2209,25,49,49,400,225,2809,25,256,81,484,961
%N A235323 Squared sum of the distinct prime factors of n, i.e., sopf(n)^2.
%C A235323 If n is a prime power p^e, A000961, then a(n) = p^2.
%F A235323 a(n) = A008472(n)^2.
%e A235323 a(5) = 25; The only prime factor of 5 is just 5, and so 5^2 = 25.
%e A235323 a(6) = 25; The sum of the prime factors of 6 = 2*3 is 2+3 = 5, and 5^2 = 25.
%t A235323 Prepend[Array[Plus @@ First[Transpose[FactorInteger[#]]]^2 &, 100, 2],
%t A235323 0]
%t A235323 Join[{0},Table[Total[FactorInteger[n][[All,1]]]^2,{n,2,60}]] (* _Harvey P. Dale_, Feb 10 2019 *)
%Y A235323 Cf. A008472 (sopf).
%K A235323 nonn
%O A235323 1,2
%A A235323 _Wesley Ivan Hurt_, Jan 05 2014