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 A161973 #9 Mar 04 2019 10:36:44
%S A161973 3,7,3,7,3,5,3,5,2,7,3,3,3,3,7,5,3,13,11,3,7,3,3,5,5,13,7,5,2,11,13,2,
%T A161973 5,17,13,7,3,7,3,7,19,7,5,3,3,13,3,7,7,3,11,3,19,11,17,3,3,5,5,5,7,5,
%U A161973 17,5,17,7,11,19,5,17,13,19,13,11,7,3,7,2,11,3,3,3,7,13,5,3,13,2,3,7,3,11,7
%N A161973 Primes in A136251 in order of appearance.
%e A161973 The A136251(k) which are prime occur at k = 9, 10, 11, 12, 15, 16, 17, 18, ... and the subsequence of A136251 at these positions defines the sequence.
%p A161973 read("transforms") ; A007605 := proc(n) digsum(ithprime(n)) ; end:
%p A161973 A136251 := proc(n) ithprime(n) mod A007605(n) ; end:
%p A161973 for n from 1 to 300 do p := A136251(n); if isprime(p) then printf("%d,",p) ; fi; od: # _R. J. Mathar_, Aug 02 2009
%Y A161973 Cf. A000040, A136251.
%K A161973 nonn,base
%O A161973 1,1
%A A161973 _Juri-Stepan Gerasimov_, Jun 23 2009
%E A161973 Edited, corrected and extended by _R. J. Mathar_, Aug 02 2009