OFFSET
2,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 2..1000
MATHEMATICA
PrimePrev[n_]:=Module[{k=n}, While[ !PrimeQ[k], k-- ]; k]; f[n_]:=n*(n+1)/2; lst={}; Do[AppendTo[lst, PrimePrev[f[n]]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 26 2010 *)
PROG
(PARI) { for (n=2, 1000, write("b065384.txt", n, " ", precprime(n*(n + 1)/2)) ) } [Harry J. Smith, Oct 17 2009]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 05 2001
STATUS
approved