A187882 Terms of A186102 for which A186102(n) > n + prime(n).

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

Author

Juri-Stepan Gerasimov, Mar 14 2011

Keywords

• nonn

Comments

Equivalently, A186102(n) for those n where neither n nor n+prime(n) is prime.

Examples

			A186102(8) = 103 > 8 + prime(8)= 27, so a(1) = 103.
		

Crossrefs

Cf. A014688, A186102.

Programs

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

Extensions

Definition corrected by Franklin T. Adams-Watters, Mar 16 2011