OFFSET
1,1
EXAMPLE
If n=12, then (p(12)+r(12))/5=(37+18)/5=11=a(1).
If n=30, then (p(30)+r(30))/5=(113+42)/5=31=a(2).
If n=38, then (p(38)+r(38))/5=(163+52)/5=43=a(3).
If n=41, then (p(41)+r(41))/5=(179+56)/5=47=a(4).
If n=61, then (p(61)+r(61))/5=(283+82)/5=73=a(5), etc.
MAPLE
A141468 := proc(n) option remember ; if n = 1 then 0; else for a from procname(n-1)+1 do if not isprime(a) then RETURN(a) ; fi; od: fi: end: A000040 := proc(n) ithprime(n) ; end: for n from 1 to 3000 do c := A000040(n)+A141468(n) ; if c mod 5 = 0 then if isprime(c/5) then printf("%d, ", c/5) ; fi; fi; od: # R. J. Mathar, Nov 03 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Sep 19 2008
EXTENSIONS
97 removed, 137 replaced by 127, 503 replaced by 509 and extended by R. J. Mathar, Nov 03 2008
STATUS
approved