Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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