Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #17 Mar 06 2019 14:58:32
%S 3,15,91,153,435,703,861,1431,1891,2701,4005,4753,5151,5995,6441,9453,
%T 11175,12403,15051,16471,18721,19503,26335,27261,29161,33153,36315,
%U 38503,39621,43071,49141,50403,56953,61075,62481,69751,75855,79003
%N Odd triangular numbers with prime indices.
%C For prime indices p such that p(p+1)/2 is 'odd' see A002313 (primes of form 4n+1).
%H G. C. Greubel, <a href="/A034954/b034954.txt">Table of n, a(n) for n = 1..5000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/TriangularNumber.html">Triangular Number</a>
%F a(n) = A000217(A002313(n)). - _Michel Marcus_, Nov 04 2017
%t Select[Table[Prime[n] (Prime[n] + 1)/2, {n, 500}], OddQ[#] &] (* _G. C. Greubel_, Nov 03 2017 *)
%t With[{nn=400},Select[Thread[{Accumulate[Range[nn]],Range[nn]}],OddQ[ #[[1]]] && PrimeQ[#[[2]]]&]][[All,1]] (* _Harvey P. Dale_, Mar 06 2019 *)
%Y Cf. A000217, A002313.
%Y Cf. A014493, A034953, A034955.
%K nonn
%O 1,1
%A _Patrick De Geest_, Oct 15 1998