OFFSET
1,2
FORMULA
a(1)=1; a(n) = (p(n+1) - p(n))*floor(p(n)/(p(n+1)-p(n))) for n >= 2. - Emeric Deutsch, Apr 27 2006
MAPLE
a:=n->(ithprime(n+1)-ithprime(n))*floor(ithprime(n)/(ithprime(n+1)-ithprime(n))): 1, seq(a(n), n=2..64); # Emeric Deutsch, Apr 27 2006
MATHEMATICA
Join[{1}, Floor[First[#]/(Last[#]-First[#])](Last[#]-First[#])&/@Partition[Prime[ Range[ 2, 60]], 2, 1]] (* Harvey P. Dale, Feb 25 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 25 2006
EXTENSIONS
More terms from Emeric Deutsch, Apr 27 2006
STATUS
approved