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 A046713 #28 Jul 16 2025 10:05:01
%S A046713 2,3,5,7,113,131,151,311,2111,11113,11117,11131,11171,11311,111121,
%T A046713 111211,112111,1111151,1111711,1117111,1171111,111111113,111111131,
%U A046713 111113111,115111111,131111111,1111111121,1111211111,1121111111,11111111113,11111111131,11113111111
%N A046713 Multiplicative and additive primes: primes where the product and sum of digits are also prime.
%C A046713 Any term of this sequence has one prime digit and all other digits are 1. - _Sean A. Irvine_, Apr 17 2021
%D A046713 James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, page 113.
%H A046713 Alois P. Heinz, <a href="/A046713/b046713.txt">Table of n, a(n) for n = 1..1000</a>
%t A046713 d[n_]:=IntegerDigits[n]; t={}; Do[p=Prime[n]; If[PrimeQ[Plus@@(x=d[p])]&&PrimeQ[Times@@x],AppendTo[t,p]],{n,2*10^5}]; t (* _Jayanta Basu_, May 18 2013 *)
%t A046713 Select[Prime[Range[5033*10^5]],AllTrue[{Total[IntegerDigits[ #]],Times@@ IntegerDigits[ #]},PrimeQ]&] (* or -- much faster *) Select[Union[ Flatten[ Table[FromDigits/@Permutations[PadRight[{p},n,1]],{p,{2,3,5,7}},{n,11}]]],AllTrue[{#,Total[ IntegerDigits[#]],Times@@ IntegerDigits[ #]},PrimeQ]&] (* _Harvey P. Dale_, Feb 28 2022 *)
%Y A046713 Intersection of A028834, A028842, and A000040.
%Y A046713 Intersection of A046703 and A046704.
%K A046713 nonn,base
%O A046713 1,1
%A A046713 _Felice Russo_
%E A046713 More terms from _Harvey P. Dale_, Aug 23 2000
%E A046713 Corrected by _Jud McCranie_, Jan 03 2001
%E A046713 Edited by _Charles R Greathouse IV_, Aug 02 2010