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 A196082 #6 Mar 30 2012 18:35:59 %S A196082 0,1,2,1,4,4,6,1,8,9,10,9,12,11,14,1,16,10,18,16,20,20,22,16,24,25,26, %T A196082 25,28,25,30,1,32,33,34,28,36,36,38,25,40,36,42,37,44,41,46,33,48,49, %U A196082 50,48,52,28,54,49,56,57,58,45,60,59,62,1,64,64,66,64,68 %N A196082 Greatest residue of x^n (mod n), x=0..n-1. %C A196082 a(n) = 1 if n is of the form 2^p and a(n) = n-1 if n prime. %e A196082 a(18) = 10 because x^18 == 0, 1, 9, 10 (mod 18) => 10 is the greatest residue. %t A196082 Table[Max[Union[PowerMod[Range[0, n - 1], n, n]]], {n, 100}] %Y A196082 Cf. A072994, A195637. %K A196082 nonn %O A196082 1,3 %A A196082 _Michel Lagneau_, Sep 27 2011