OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
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
Parthasarathy Nambi, Mar 22 2005
EXTENSIONS
More terms from Robert G. Wilson v, Mar 26 2005
STATUS
approved