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 A087340 #15 Sep 08 2022 08:45:11 %S A087340 2,11,23,29,41,43,47,61,67,89,223,227,229,263,269,281,463,643,661,821, %T A087340 827,883,887,1123,1129,1163,1213,1231,1237,1279,1291,1297,1321,1327, %U A087340 1361,1367,1433,1439,1453,1459,1471,1493,1523,1543,1549,1567,1613,1637 %N A087340 Primes p such that the sum of the digits of p as well as 1 plus the product of its digits are also primes. %H A087340 Vincenzo Librandi, <a href="/A087340/b087340.txt">Table of n, a(n) for n = 1..1000</a> %F A087340 A066725 INTERSECT A046704. - _R. J. Mathar_, Aug 26 2007 %t A087340 Select[Select[Prime[Range[280]], PrimeQ[Plus@@IntegerDigits[ # ]]&], PrimeQ[Times@@IntegerDigits[ # ]+1]&] (from Harvey Dale) %o A087340 (Magma) [p: p in PrimesUpTo(1700) | IsPrime(&+Intseq(p)) and IsPrime(1+&*Intseq(p))]; // _Bruno Berselli_, Apr 09 2013 %Y A087340 Cf. A087339. %K A087340 base,nonn %O A087340 1,1 %A A087340 _Amarnath Murthy_, Sep 06 2003 %E A087340 Edited and extended by _Robert G. Wilson v_, Sep 07 2003