%I #18 Aug 29 2020 13:11:46
%S 1,37,38,102,102,111,120,201,265,329,378,394,475,539,620,636,700,716,
%T 780,784,784,800,825,889,925,989,998,1014,1023,1059,1084,1120,1129,
%U 1193,1194,1195,1244,1293,1297,1297,1306,1306,1387,1388,1437,1518,1582,1582
%N Partial sums of squares of digits of golden ratio phi (A001622).
%H Vincenzo Librandi, <a href="/A111043/b111043.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = Sum_{i=1..n} A001622(i)^2.
%t Accumulate[RealDigits[GoldenRatio,10,120][[1]]^2] (* _Harvey P. Dale_, Jul 22 2014 *)
%Y Cf. A001622.
%K base,easy,less,nonn
%O 1,2
%A _Jonathan Vos Post_, Oct 06 2005
%E Definition clarified by _Harvey P. Dale_, Jul 22 2014
%E Edited by _Georg Fischer_, Aug 29 2020