|
%I #13 Sep 28 2018 02:51:31
%S 1,3,7,10,12,25,60,81,87,136,159,169,171,205,213,220,235,238,240,241,
%T 259,324,339,340,411,448,459,511,513,537,543,558,642,652,670,688,690,
%U 705,721,754,768,775,777,795,801,808,834,862,885,892,936,943,961,964
%N Numbers n such that n23571113171923 is prime.
%H Robert Israel, <a href="/A103541/b103541.txt">Table of n, a(n) for n = 1..10000</a>
%e At n=1, n23571113171923 = 123571113171923 (prime).
%e At n=25, n23571113171923 = 2523571113171923 (prime).
%e At n=136, n23571113171923 = 13623571113171923 (prime).
%p select(t -> isprime(t*10^14+23571113171923), [$0..1000]); # _Robert Israel_, Sep 28 2018
%t fQ[n_] := PrimeQ[ FromDigits[ Join[ IntegerDigits[n], {2, 3, 5, 7, 1, 1, 1, 3, 1, 7, 1, 9, 2, 3}]]]; Select[ Range[ 983], fQ[ # ] &] (* _Robert G. Wilson v_, Mar 26 2005 *)
%t Select[Range[1000], PrimeQ[10^14 # + 23571113171923] &] (* _Vincenzo Librandi_, Sep 28 2018 *)
%K base,nonn
%O 1,2
%A _Parthasarathy Nambi_, Mar 22 2005
%E More terms from _Robert G. Wilson v_, Mar 26 2005
|
