OFFSET
1,2
COMMENTS
The first number that occurs more than once is 2592 = a(143) = a(144). - Robert Israel, Nov 11 2014
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 1000: # to get all terms <= N
Primes:= select(isprime, [2, seq(2*i+1, i=1..floor(N/2))]):
B:= [seq((Primes[i+1]+Primes[i])*(Primes[i+1]-Primes[i]-1)/2, i=1..nops(Primes)-1)]:
sort(select(`<=`, B, N)); # Robert Israel, Nov 11 2014
MATHEMATICA
With[{nn=60}, Take[Sort[Total[Range[#[[1]]+1, #[[2]]-1]]&/@Partition[ Prime[ Range[3*nn]], 2, 1]], nn]] (* Harvey P. Dale, Sep 25 2015 *)
PROG
(PARI) lista() = {vitp = readvec("c:/gp/bfiles/b029707.txt"); for (k=1, #vitp, v = []; for (n=1, k, vn = vitp[n]; for (j=1, vn, newv = (prime(j+1)+prime(j))*(prime(j+1)-prime(j)-1)/2; if (! vecsearch(v, newv), v = vecsort(concat(v, newv))); ); ); /* to see intermediate results for (i=1, #v, if (v[i] <= newv, print1(v[i], ", ")); ); print(); */); v; } \\ Michel Marcus, Nov 11 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Yves Debeuret, Nov 02 2014
EXTENSIONS
More terms from Michel Marcus, Nov 11 2014
STATUS
approved