OFFSET
1,1
LINKS
Pierre CAMI, Table of n, a(n) for n = 1..10000
EXAMPLE
floor(3/2)=1 not prime, floor(5/2)=2=prime(1) so a(1)=5.
floor(7/2)=3=prime(2), so a(2)=7.
floor(11/2)=5=prime(3), so a(3)=11.
floor(13/2)=6 and floor(17/2)=8 not prime, floor(23/3)=7=prime(4), so a(4)=23.
floor(23/2)=11=prime(5) so a(5)=23.
MATHEMATICA
a[n_] := For[p = Prime[n]; r = 2, True, r = NextPrime[r], For[q = NextPrime[r*p, -1], q <= (p + 1) r, q = NextPrime[q], If[Floor[q/r] == p, Return[q]]]]; Array[a, 100] (* Jean-François Alcover, Oct 25 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Oct 09 2014
STATUS
approved
