|
%I #6 Apr 10 2019 21:56:20
%S 16381,23199907725541,873105326726527441,169377932722437899461,
%T 532026300937919058017204151243671297356368598920355705257429996547710782877327451810988538831181
%N Primes that are both centered triangular and centered square.
%C Primes that are the sum of three consecutive triangular numbers and the sum of two consecutive squares.
%C The next term is too large to include.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CenteredTriangularNumber.html">Centered Triangular Number</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CenteredSquareNumber.html">Centered Square Number</a>
%t Select[LinearRecurrence[{195, -195, 1}, {1, 85, 16381}, 43], PrimeQ[#] &]
%Y Intersection of A027862 and A125602.
%Y Cf. A000040, A001110, A001844, A005448, A131750, A163251, A269414.
%K nonn
%O 1,1
%A _Ilya Gutkovskiy_, Apr 10 2019
| 