OFFSET
1,2
COMMENTS
a(9) = 31468 is probably the last term. Any further terms must be greater than 1.5 * 10^18. [Charles R Greathouse IV, Jun 27 2011]
MAPLE
isA192319 := proc(n) phigh := n ; plow := ceil(n-5*root[4](n))-1 ; numtheory[pi](phigh)-numtheory[pi](plow) = 0 ; end proc:
for n from 1 do if isA192319(n) then print(n); end if; end do: # R. J. Mathar, Jul 10 2011
PROG
(PARI) isA192319(n)=nextprime(floor(n+1-5*n^.25))>n \\ Charles R Greathouse IV, Jun 27 2011
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Jun 27 2011
STATUS
approved