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 A109982 #11 Sep 15 2019 11:56:31
%S A109982 11,41,67,83,157,179,191,241,283,331,353,401,461,599,739,773,797,919,
%T A109982 991,10079,10169,10433,10457,10589,10631,10723,10853,10909,11311,
%U A109982 11447,11867,11953,12097,12143,12301,12457,12479,12503,12547,12763,13003
%N A109982 Primes p such that index of p, the sum of p's digits and the number of p's digits are all primes.
%H A109982 Harvey P. Dale, <a href="/A109982/b109982.txt">Table of n, a(n) for n = 1..1000</a>
%e A109982 a(414) = 99551 because its index, 9551, the sum, 29 and number, 5, of digits are all primes.
%t A109982 Select[Prime[Range[200]], PrimeQ[Length[IntegerDigits[ # ]]]&&PrimeQ[Plus@@IntegerDigits[ # ]]&]
%t A109982 Select[Prime[Range[1600]],AllTrue[{PrimePi[#],Total[IntegerDigits[#]], IntegerLength[ #]}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Sep 15 2019 *)
%Y A109982 Cf. A046704 Additive primes: sum of digits is a prime, A088136 Primes such that sum of first and last digits is prime, A109981 Primes such that the sum of digits and the number of digits are primes.
%K A109982 base,nonn
%O A109982 1,1
%A A109982 _Zak Seidov_, Jul 06 2005