The On-Line Encyclopedia of Integer Sequences® (OEIS®)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A086244

(Underlined text is an addition; strikethrough text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A086244

Primes such that a sum of any two adjacent digits is prime; first and last digits are considered adjacent.
(history; published version)

#18 by Alois P. Heinz at Fri Oct 27 20:43:29 EDT 2023

STATUS

editing

approved

#17 by Alois P. Heinz at Fri Oct 27 20:43:26 EDT 2023

LINKS

Zak Seidov and Alois P. Heinz, <a href="/A086244/b086244.txt">Table of n, a(n) for n = 1..10000</a> (first 623 terms from Zak Seidov)

STATUS

approved

editing

#16 by Harvey P. Dale at Sat Jun 08 18:25:56 EDT 2019

STATUS

editing

approved

#15 by Harvey P. Dale at Sat Jun 08 18:25:52 EDT 2019

MATHEMATICA

tadpQ[n_]:=Module[{idn=IntegerDigits[n]}, AllTrue[ Join[{idn[[1]]+ idn[[-1]]}, Total/@Partition[idn, 2, 1]], PrimeQ]]; Select[Prime[Range[ 2500]], tadpQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 08 2019 *)

STATUS

approved

editing

#14 by OEIS Server at Tue May 10 12:31:34 EDT 2016

LINKS

Zak Seidov and Alois P. Heinz, <a href="/A086244/b086244_1.txt">Table of n, a(n) for n = 1..10000</a> (first 623 terms from Zak Seidov)

#13 by Alois P. Heinz at Tue May 10 12:31:34 EDT 2016

STATUS

editing

approved

Discussion
Tue May 10	12:31	OEIS Server: Installed new b-file as b086244.txt. Old b-file is now b086244_1.txt.

#12 by Alois P. Heinz at Tue May 10 12:31:27 EDT 2016

LINKS

Zak Seidov and Alois P. Heinz, <a href="/A086244/b086244_1.txt">Table of n, a(n) for n = 1..62310000</a> All> (first 623 terms upfrom toZak 3*10^6.Seidov)

STATUS

proposed

editing

#11 by Zak Seidov at Tue May 10 11:57:59 EDT 2016

STATUS

editing

proposed

#10 by Zak Seidov at Tue May 10 11:57:32 EDT 2016

DATA

11, 23, 29, 41, 43, 47, 61, 67, 83, 89, 211, 2029, 2111, 2129, 2141, 2143, 2161, 2341, 2383, 2389, 2503, 2521, 4111, 4129, 4349, 4703, 4943, 6121, 6521, 6761, 8329, 8389, 8923, 8929, 11161, 11411, 12161, 12941, 14321, 14341, 14741, 16111, 16141, 16561, 16741, 20323, 20341, 20389, 20521, 20743, 20749, 21121, 21143, 21149, 21211, 21611, 23021, 23029, 23203, 29411

#9 by Zak Seidov at Tue May 10 11:56:54 EDT 2016

MATHEMATICA

p=10; Reap[Do[Label[ne]; p=NextPrime[p]; id=IntegerDigits[p];

id1=Append[id, id[[1]]]; id2=Prepend[id, id[[-1]]];

If[{True}==Union[PrimeQ[id1+id2]], Sow[p]], {2000}]][[2, 1]]

(* Zak Seidov, May 10 2016 *)

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 18 23:05 EDT 2024. Contains 375284 sequences. (Running on oeis4.)