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 A211452 #3 Apr 11 2012 20:06:12 %S A211452 1,2,1,0,1,1,1,6,1,4,2,4,1,7,2,2,2,1,1,1,3,1,2,1,1,1,2,1,4,8,1,2,2,2, %T A211452 2,1,3,1,2,1,1,15,19,8,2,2,1,6,2,1,2,1,1,2,1,1,1,2,2,14,2,1,2,10,3,2, %U A211452 3,6,1,1,11,1,6,6,1,2,4,1,2,17,22,6,1,1,6 %N A211452 (p-1)/x, where p = prime(n) and x = ord(7,p), the smallest positive integer such that 7^x == 1 mod p. %H A211452 T. D. Noe, <a href="/A211452/b211452.txt">Table of n, a(n) for n = 1..1000</a> %t A211452 nn = 7; Table[If[Mod[nn, p] == 0, 0, (p-1)/MultiplicativeOrder[nn, p]], {p, Prime[Range[100]]}] %Y A211452 Cf. A001917, A094593, A211449, A211450, A211451, A211453, A211454, A006556. %K A211452 nonn %O A211452 1,2 %A A211452 _T. D. Noe_, Apr 11 2012