|
%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
|
