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
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Mar 14 2011
EXTENSIONS
Definition corrected by Franklin T. Adams-Watters, Mar 16 2011
STATUS
approved