OFFSET
3,1
COMMENTS
This sequence contains only one prime number, the 3.
EXAMPLE
For prime 107 we have 107 - 53 = 54.
MAPLE
A085378 := proc(n)
ithprime(n)-A023503(n) ;
end proc:
seq( A085378(n), n=3..80) ; # R. J. Mathar, Sep 07 2016
MATHEMATICA
#-FactorInteger[#-1][[-1, 1]]&/@Prime[Range[3, 70]] (* Harvey P. Dale, Jan 04 2012 *)
PROG
(PARI) cminuspm1(n) = \ prime - maxprime of prime-1 { forprime(x=5, n, forstep(p=x, 2, -1, if(isprime(p) & (x-1)%p==0, print1(x-p, ", "); break); ) ) }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Aug 12 2003
STATUS
approved