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 A046720 #34 Aug 09 2024 05:05:13 %S A046720 76667,700666007,700000666000007,70000006660000007 %N A046720 Subsequence of beastly primes (A186086) that are palindromes that begin and end with 7. %C A046720 Next term is 7_{0}^48_666_{0}^48_7, containing 101 digits, and is too large to include here. %C A046720 The number of digits in the terms is 2*A186521(n)+3: 5, 9, 15, 17, 101, 1159, 1589, 2647, 2787, 4787, 6135, 26961 (some correspond to probable primes). - _Jens Kruse Andersen_, Jul 13 2014 %H A046720 Jens Kruse Andersen, <a href="/A046720/b046720.txt">Table of n, a(n) for n = 1..7</a> %H A046720 R. Ondrejka, <a href="http://www.utm.edu/research/primes/lists/top_ten/">The Top Ten: a Catalogue of Primal Configurations</a> %H A046720 Tony Padilla and Brady Haran, <a href="https://www.youtube.com/watch?v=zk_Q9y_LNzg">The Most Evil Number</a>, Numberphile video (2018) %F A046720 a(n) = (7*10^(k+2)+666)*10^k+7, where k = A186521(n). - _Jens Kruse Andersen_, Jul 13 2014 %t A046720 Select[Table[(7*10^(n + 2) + 666)*10^n + 7, {n, 7}], PrimeQ] (* _Arkadiusz Wesolowski_, Sep 08 2011 *) %t A046720 Select[Table[With[{s=PadRight[{7},n,0]},FromDigits[Join[s,{6,6,6},Reverse[s]]]],{n,8}],PrimeQ] (* _Harvey P. Dale_, Aug 05 2024 *) %Y A046720 Cf. A051003, A131645, A186086, A186521. %K A046720 base,nonn %O A046720 1,1 %A A046720 _G. L. Honaker, Jr._ %E A046720 Definition revised by _N. J. A. Sloane_, Feb 14 2011