|
%I #14 Jun 08 2021 02:24:06
%S 2,19,79,1861,7741,1647522841025041
%N Primes p such that p^2 is a centered triangular number; or primes in A129445.
%C The next terms are too large to include, see the b-file.
%H Alexander Adamchuk, Apr 26 2007, <a href="/A129446/b129446.txt">Table of n, a(n) for n = 1..9</a>
%t Do[ f = 3n(n-1)/2 + 1; If[ PrimeQ[ Sqrt[f] ], Print[ Sqrt[f] ] ], {n,1,150000} ]
%Y Cf. A005448 (centered triangular numbers).
%Y Cf. A129444 (numbers k such that centered triangular number A005448(k) = 3*k*(k-1)/2 + 1 is a perfect square).
%Y Cf. A129445 (numbers k > 0 such that k^2 is a centered triangular number).
%K nonn
%O 1,1
%A _Alexander Adamchuk_, Apr 15 2007, Apr 26 2007
| 