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 A045978 #22 Mar 31 2021 04:57:17
%S A045978 101,181,191,313,727,757,787,797,13931,71317,73237,77977,7791977
%N A045978 Palindromic primes that are "near miss circular primes" (all cyclic shifts except one are primes).
%H A045978 Patrick De Geest, <a href="http://www.worldofnumbers.com/circular.htm">Circular primes</a>
%t A045978 NearCyclPrmsUpTo10powerK[k_]:= Union@Flatten[Table[ParallelMap[If[IntegerDigits[#]== Reverse@IntegerDigits[#] && (Count[FromDigits/@
%t A045978 NestList[RotateLeft, IntegerDigits[#], IntegerLength[#]-1], _?PrimeQ] ==IntegerLength[#]-1), #, Nothing]&, Select[FromDigits/@ Tuples[{1, 2, 3, 5, 7, 8, 9, 0}, n], PrimeQ]], {n, 3, k}], 1]; NearCyclPrmsUpTo10powerK[7] (* _Mikk Heidemaa_, Apr 26 2017 *)
%Y A045978 Cf. A002385, A270083.
%K A045978 fini,nonn,base
%O A045978 0,1
%A A045978 _Carlos Rivera_
%E A045978 Corrected by _Jud McCranie_, Jan 04 2001