|
%I #14 Sep 08 2022 08:45:16
%S 1,4,7,10,18,24,25,28,31,34,39,42,48,51,63,70,73,76,79,81,85,93,94,
%T 100,126,139,148,150,156,157,160,163,168,174,177,184,186,199,202,207,
%U 219,232,234,235,237,265,268,277,300,301,307,309,315,316,321,322,328,343,354,358,364,366
%N Numbers n such that n2101 is prime.
%H Harvey P. Dale, <a href="/A103408/b103408.txt">Table of n, a(n) for n = 1..1000</a>
%e If n=1, then n2101 = 12101 (prime).
%e If n=31, then n2101 = 312101 (prime).
%e If n=63, then n2101 = 632101 (prime).
%t Select[Range[400],PrimeQ[10000#+2101]&] (* _Harvey P. Dale_, Jul 20 2015 *)
%o (Magma) [ n: n in [1..700] | IsPrime(Seqint([1, 0, 1, 2] cat Intseq(n))) ]; // _Vincenzo Librandi_, Feb 03 2011
%o (PARI) is(n)=isprime(10000*n+2101) \\ _Charles R Greathouse IV_, Jun 06 2017
%Y Cf. A103118, A102624.
%K base,nonn,easy
%O 1,2
%A _Parthasarathy Nambi_, Mar 20 2005
|
