This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A187882 #11 Jan 29 2019 00:25:03 %S A187882 103,101,97,197,229,109,281,233,167,607,233,349,821,307,631,1093,853, %T A187882 373,1597,1009,439,643,503,2111,983,769,1811,569,2423,3823,3581,2027, %U A187882 941,677,997,691,1753,3539,1193,5381,4289,2411,2063,1307,919,8311,2719,3187,6373,1459,3331,9431 %N A187882 Terms of A186102 for which A186102(n) > n + prime(n). %C A187882 Equivalently, A186102(n) for those n where neither n nor n+prime(n) is prime. %e A187882 A186102(8) = 103 > 8 + prime(8)= 27, so a(1) = 103. %p A187882 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 A187882 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 A187882 Cf. A014688, A186102. %K A187882 nonn %O A187882 1,1 %A A187882 _Juri-Stepan Gerasimov_, Mar 14 2011 %E A187882 Definition corrected by _Franklin T. Adams-Watters_, Mar 16 2011