login
A187882
Terms of A186102 for which A186102(n) > n + prime(n).
0
103, 101, 97, 197, 229, 109, 281, 233, 167, 607, 233, 349, 821, 307, 631, 1093, 853, 373, 1597, 1009, 439, 643, 503, 2111, 983, 769, 1811, 569, 2423, 3823, 3581, 2027, 941, 677, 997, 691, 1753, 3539, 1193, 5381, 4289, 2411, 2063, 1307, 919, 8311, 2719, 3187, 6373, 1459, 3331, 9431
OFFSET
1,1
COMMENTS
Equivalently, A186102(n) for those n where neither n nor n+prime(n) is prime.
EXAMPLE
A186102(8) = 103 > 8 + prime(8)= 27, so a(1) = 103.
MAPLE
A186102 := proc(n) local p , pn; p := 2 ; pn := ithprime(n) ; while modp(p, pn) <> modp(n, pn) do p := nextprime(p) end do: return p ; end proc:
for n from 1 to 100 do if A186102(n) > n+ithprime(n) then printf("%d, ", A186102(n)); end if; end do; # R. J. Mathar, Mar 19 2011
CROSSREFS
Sequence in context: A370404 A279242 A094095 * A212542 A074675 A235155
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition corrected by Franklin T. Adams-Watters, Mar 16 2011
STATUS
approved