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 A051627 #27 Feb 16 2025 08:32:41
%S A051627 1,2,3,4,10,12,9,14,24,36,48,38,19,23,39,62,120,150,106,93,134,294,
%T A051627 196,320,654,738,385,586,317,597,1404,945,1452,1836,1752,1172,1812,
%U A051627 1282,1426,2232,1862,1844,1521,2134,3750,1031,2264,2667,4354,3927,4274,6522,3903,6022,6682,6135,9550,5877
%N A051627 Periods associated with A040017.
%C A051627 The numbers in A007498 sorted according to the magnitude of the corresponding prime. - _T. D. Noe_, Sep 08 2005
%H A051627 Ray Chandler, <a href="/A051627/b051627.txt">Table of n, a(n) for n = 1..99</a>
%H A051627 C. K. Caldwell, <a href="https://t5k.org/glossary/page.php?sort=UniquePrime">Unique Primes</a>
%H A051627 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/UniquePrime.html">Unique Prime</a>
%H A051627 <a href="/index/1#1overn">Index entries for sequences related to decimal expansion of 1/n</a>
%F A051627 a(n) = A002371(A000720(A040017(n))). - _Max Alekseyev_, Oct 14 2022
%e A051627 The decimal expansion of 1/101 is 0.00990099..., having a period of 4 and it is the only prime with that period.
%t A051627 nmax = 10000; primesPeriods = Reap[Do[p = Cyclotomic[n, 10]/GCD[n, Cyclotomic[n, 10]]; If[PrimeQ[p], Print[n]; Sow[{p, n}]], {n, 1, nmax}]][[2, 1]]; Sort[primesPeriods][[All, 2]] // Prepend[#, 1]& // Take[#, 58]& (* _Jean-François Alcover_, Mar 29 2013 *)
%K A051627 nonn,nice,base
%O A051627 1,2
%A A051627 _N. J. A. Sloane_
%E A051627 More terms from _Jud McCranie_
%E A051627 More terms from _T. D. Noe_, Sep 08 2005
%E A051627 Corrected a(45)=3750 and extended by _Ray Chandler_, Oct 13 2008