The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A103541

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A103541

Numbers n such that n23571113171923 is prime.
(history; published version)

#13 by Bruno Berselli at Fri Sep 28 02:51:31 EDT 2018

STATUS

editing

approved

#12 by Bruno Berselli at Fri Sep 28 02:51:25 EDT 2018

PROG

(MAGMA) [n: n in [0..1000] | IsPrime(Seqint(Intseq(23571113171923) cat Intseq(n)))]; // Vincenzo Librandi, Set 28 2018

STATUS

proposed

editing

#11 by Vincenzo Librandi at Fri Sep 28 00:46:12 EDT 2018

STATUS

editing

proposed

#10 by Vincenzo Librandi at Fri Sep 28 00:45:57 EDT 2018

MATHEMATICA

Select[Range[1000], PrimeQ[10^14 # + 23571113171923] &] (* Vincenzo Librandi, Sep 28 2018 *)

PROG

(MAGMA) [n: n in [0..1000] | IsPrime(Seqint(Intseq(23571113171923) cat Intseq(n)))]; // Vincenzo Librandi, Set 28 2018

STATUS

proposed

editing

#9 by Robert Israel at Fri Sep 28 00:25:23 EDT 2018

STATUS

editing

proposed

#8 by Robert Israel at Fri Sep 28 00:25:16 EDT 2018

LINKS

Robert Israel, <a href="/A103541/b103541.txt">Table of n, a(n) for n = 1..10000</a>

MAPLE

select(t -> isprime(t*10^14+23571113171923), [$0..1000]); # Robert Israel, Sep 28 2018

STATUS

approved

editing

#7 by Alois P. Heinz at Sun Mar 29 14:22:48 EDT 2015

STATUS

proposed

approved

#6 by Jon E. Schoenfield at Sun Mar 29 14:09:32 EDT 2015

STATUS

editing

proposed

#5 by Jon E. Schoenfield at Sun Mar 29 14:09:30 EDT 2015

EXAMPLE

If At n=1, then n23571113171923 = 123571113171923 (prime).

If At n=25, then n23571113171923 = 2523571113171923 (prime).

If At n=136, then n23571113171923 = 13623571113171923 (prime).

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[ # ] &] (from * _Robert G. Wilson v _, Mar 26 2005 *)

STATUS

approved

editing

#4 by Russ Cox at Fri Mar 30 17:31:11 EDT 2012

EXTENSIONS

More terms from _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Mar 26 2005

Discussion

Fri Mar 30

17:31

OEIS Server: https://oeis.org/edit/global/156