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 A094264 #13 Apr 18 2023 07:38:32
%S A094264 0,0,1,1,4,1,6,10,12,9,20,12,27,32,28,32,57,38,50,67,65,82,75,76,84,
%T A094264 147,101,143,151,117,157,208,205,210,204,199,231,309,274,239,236,275,
%U A094264 257,430,336,364,367,459,322,484,480,551,465,547,556,682,616,733,592,555,493,774
%N A094264 a(n) = Sum_{r = 1..n} (n^r mod r).
%H A094264 Robert Israel, <a href="/A094264/b094264.txt">Table of n, a(n) for n = 1..10000</a>
%p A094264 f:= proc(n) local r; add(n &^ r mod r, r=1..n) end proc:
%p A094264 map(f, [$1..100]); # _Robert Israel_, Apr 17 2023
%t A094264 Do[Print[Sum[Mod[n^r, r], {r, 1, n}]], {n, 1, 30}] (* _Ryan Propper_, Jul 10 2005 *)
%Y A094264 Cf. A094263, A094265.
%K A094264 nonn
%O A094264 1,5
%A A094264 _Amarnath Murthy_, Apr 26 2004
%E A094264 More terms from _Ryan Propper_, Jul 10 2005