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 A048524 #14 Nov 12 2018 18:39:01
%S A048524 11,59,101,149,167,257,293,367,419,479,547,617,727,839,1409,1579,1847,
%T A048524 2039,2129,2617,2657,2837,3449,3517,3539,3607,3719,4217,4637,4877,
%U A048524 5689,5807,5861,6037,6257,6761,7027,7517,8039,8741,8969,9371,9377,10667
%N A048524 Primes for which only two iterations of 'Prime plus its digit sum equals a prime' are possible.
%H A048524 Lars Blomberg, <a href="/A048524/b048524.txt">Table of n, a(n) for n = 1..10000</a>
%e A048524 prime 727 -> 727 + (7+2+7) = prime 743 -> 743 + (7+4+3) = prime 757 -> next iteration yields composite 776.
%t A048524 Select[Prime[Range[1400]],Boole[PrimeQ[Rest[NestList[ #+Total[ IntegerDigits[ #]]&,#,3]]]] == {1,1,0}&] (* _Harvey P. Dale_, Oct 31 2018 *)
%Y A048524 Cf. A047791, A048519.
%K A048524 nonn,base
%O A048524 1,1
%A A048524 _Patrick De Geest_, May 15 1999
%E A048524 Changed offset by _Lars Blomberg_, Dec 05 2013