|
|
A103541
|
|
Numbers n such that n23571113171923 is prime.
|
|
1
|
|
|
1, 3, 7, 10, 12, 25, 60, 81, 87, 136, 159, 169, 171, 205, 213, 220, 235, 238, 240, 241, 259, 324, 339, 340, 411, 448, 459, 511, 513, 537, 543, 558, 642, 652, 670, 688, 690, 705, 721, 754, 768, 775, 777, 795, 801, 808, 834, 862, 885, 892, 936, 943, 961, 964
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
At n=1, n23571113171923 = 123571113171923 (prime).
At n=25, n23571113171923 = 2523571113171923 (prime).
At n=136, n23571113171923 = 13623571113171923 (prime).
|
|
MAPLE
|
select(t -> isprime(t*10^14+23571113171923), [$0..1000]); # Robert Israel, Sep 28 2018
|
|
MATHEMATICA
|
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 *)
Select[Range[1000], PrimeQ[10^14 # + 23571113171923] &] (* Vincenzo Librandi, Sep 28 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|