|
%I #14 Apr 21 2022 14:21:37
%S 31729,41729,61729,151729,161729,181729,221729,271729,341729,431729,
%T 551729,581729,611729,671729,691729,731729,811729,881729,931729,
%U 961729,1031729,1061729,1091729,1151729,1181729,1201729,1321729,1391729,1441729,1451729,1531729
%N Prime numbers ending in Hardy-Ramanujan number 1729.
%H Harvey P. Dale, <a href="/A193742/b193742.txt">Table of n, a(n) for n = 1..1000</a>
%F Primes of the form 10000n + 1729.
%t Select[Table[ToExpression[ToString[n] <> "1729"], {n, 1000}], PrimeQ] (* _T. D. Noe_, Aug 15 2011 *)
%t Select[Prime[Range[120000]],Mod[#,10000]==1729&] (* _Harvey P. Dale_, Apr 21 2022 *)
%K nonn,easy,base
%O 1,1
%A _Kausthub Gudipati_, Aug 03 2011
|
