login
A161973
Primes in A136251 in order of appearance.
0
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, 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, 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
OFFSET
1,1
EXAMPLE
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.
MAPLE
read("transforms") ; A007605 := proc(n) digsum(ithprime(n)) ; end:
A136251 := proc(n) ithprime(n) mod A007605(n) ; end:
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
CROSSREFS
Sequence in context: A021732 A329341 A244191 * A010705 A244189 A375152
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited, corrected and extended by R. J. Mathar, Aug 02 2009
STATUS
approved