%I #9 Mar 04 2019 10:36:44
%S 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 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 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 Primes in A136251 in order of appearance.
%e 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 read("transforms") ; A007605 := proc(n) digsum(ithprime(n)) ; end:
%p A136251 := proc(n) ithprime(n) mod A007605(n) ; end:
%p 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 Cf. A000040, A136251.
%K nonn,base
%O 1,1
%A _Juri-Stepan Gerasimov_, Jun 23 2009
%E Edited, corrected and extended by _R. J. Mathar_, Aug 02 2009