|
%I #14 Sep 08 2022 08:45:54
%S 401,12101,16901,28901,52901,184901,220901,792101,1020101,1144901,
%T 2464901,3204101,3648101,3880901,3960101,5428901,6604901,7672901,
%U 9672101,12180101,12460901,13468901,13912901,14364101,15132101,18576101
%N Primes of the form (10p)^2 + 1, where p is also prime.
%C Sequence is a subset of primes of the form n^2 + 1.
%H Harvey P. Dale, <a href="/A179293/b179293.txt">Table of n, a(n) for n = 1..1000</a>
%e (prime(14)*10)^2 + 1 = (43*10)^2 + 1 = 184901, which is prime.
%t Select[Table[(10p)^2+1,{p,Prime[Range[100]]}],PrimeQ] (* _Harvey P. Dale_, May 20 2018 *)
%o (Magma) [a: p in PrimesUpTo(25000)|IsPrime(a) where a is (10*p)^2+1] // _Vincenzo Librandi_, Dec 22 2010
%K easy,nonn
%O 1,1
%A Kevin Batista (kevin762401(AT)yahoo.com), Jul 09 2010
|
