%I #11 Jan 29 2019 00:25:03
%S 103,101,97,197,229,109,281,233,167,607,233,349,821,307,631,1093,853,
%T 373,1597,1009,439,643,503,2111,983,769,1811,569,2423,3823,3581,2027,
%U 941,677,997,691,1753,3539,1193,5381,4289,2411,2063,1307,919,8311,2719,3187,6373,1459,3331,9431
%N Terms of A186102 for which A186102(n) > n + prime(n).
%C Equivalently, A186102(n) for those n where neither n nor n+prime(n) is prime.
%e A186102(8) = 103 > 8 + prime(8)= 27, so a(1) = 103.
%p 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:
%p 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
%Y Cf. A014688, A186102.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Mar 14 2011
%E Definition corrected by _Franklin T. Adams-Watters_, Mar 16 2011