OFFSET
1,1
COMMENTS
This sequence also gives the primes p such that every positive integer k <= q-p divides p-1, where q is the prime immediately after p.
Number of terms less than 10^k: 3, 13, 57, 338, 2020, 13569, 98365, 736332, 5729411, ..., . Compare these to A006880. - Robert G. Wilson v, Aug 01 2008
LINKS
Robert G. Wilson v, Table of n, for n = 1..13569.
MAPLE
isA141830 := proc(p) local q, d ; if isprime(p) then q := nextprime(p) ; for d from 1 to q-p do if (p+d-1) mod d <> 0 then RETURN(false) ; fi; od: RETURN(true) ; else false; fi; end: for i from 1 to 300 do p := ithprime(i) ; if isA141830(p) then printf("%d, ", p) ; fi; od: # R. J. Mathar, Aug 08 2008
MATHEMATICA
fQ[n_] := Block[{p = n, q = NextPrime@ n}, Union[IntegerQ /@ (Range[p, q - 1]/Range[q - p])][[1]]]; Select[ Prime@ Range@ 151, fQ@# &] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 09 2008
EXTENSIONS
More terms from Robert G. Wilson v and R. J. Mathar, Aug 08 2008
STATUS
approved