A278139 - OEIS

%I #6 Nov 27 2016 22:02:25

%S 2,3,13,41,107,227,503,881,1409,2039,2819,3947,5273,6869,8699,11549,

%T 15377,19937,24593,30809,38069,47939,58379,69257,82787,98897,115733,

%U 133499,152027,172127,192833,218711,247391,279269,315047,355517,399473,444623

%N Primes, starting with a(1)=2, whose successive differences are increasing triangular numbers.

%t lst={1};p[1]=2;p[n_]:=p[n]=Module[{i=Last[lst]+1},

%t While[!PrimeQ[p[n-1]+i*(i-1)/2],i++];AppendTo[lst,i];p[n-1]+i*(i-1)/2];

%t p/@Range[50]

%Y Cf. A088173, A275030.

%K easy,nonn

%O 1,1

%A _Ivan N. Ianakiev_, Nov 13 2016