The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A048553

a(n+1) is next smallest prime beginning with a(n), initial prime is 11.
(history; published version)

#17 by R. J. Mathar at Wed Sep 30 08:53:44 EDT 2015

STATUS

editing

approved

#16 by R. J. Mathar at Wed Sep 30 08:53:35 EDT 2015

CROSSREFS

Cf. A048549-A048556, A261198A261199-A261201, A261269-A261270.

STATUS

approved

editing

#15 by R. J. Mathar at Sun Sep 27 17:45:40 EDT 2015

STATUS

proposed

approved

#14 by R. J. Mathar at Sun Sep 27 17:45:32 EDT 2015

STATUS

editing

proposed

#13 by Danny Rorabaugh at Tue Sep 22 16:25:37 EDT 2015

MATHEMATICA

While[CompositeQ@ FromDigits[Join[w, IntegerDigits@ k]], k += 2];

CROSSREFS

Cf. A048549-A048556, A261198-A261201, A261269 - A261270.

STATUS

proposed

editing

Discussion

Sun Sep 27

07:35

Joerg Arndt: @Robert: a duplicate of this seq. was recycled and pertinent info is now moved here.

17:45

R. J. Mathar: The maple code is a survivor of the recycled sequence that can be traced back in http://oeis.org/wiki/Deleted_sequences. Attributions of this kind are kept (unless the code is massively rewritten to fit its new place).

#12 by Michael De Vlieger at Mon Sep 21 10:08:49 EDT 2015

STATUS

editing

proposed

Discussion

Mon Sep 21

20:07

Robert Israel: The Maple code was not entered here by me, although it looks like something I might have written (presumably for some other sequence, but
I don't even know which one: a search for "Robert Israel, Aug 16 2015" didn't find it).  I'm not complaining, but what's the policy on attributions of this kind?

#11 by Michael De Vlieger at Mon Sep 21 10:08:30 EDT 2015

MATHEMATICA

a = {11}; Do[k = 1; w = IntegerDigits[a[[n - 1]]];

While[CompositeQ@ FromDigits[Join[w, IntegerDigits@ k]], k += 2];

AppendTo[a, FromDigits[Join[w, IntegerDigits@ k]]], {n, 2, 15}]; a (* Michael De Vlieger, Sep 21 2015 *)

STATUS

reviewed

editing

#10 by Peter Luschny at Sun Sep 20 12:24:27 EDT 2015

STATUS

proposed

reviewed

#9 by Michel Marcus at Sun Sep 20 11:00:11 EDT 2015

STATUS

editing

proposed

#8 by Michel Marcus at Sun Sep 20 10:59:58 EDT 2015

NAME

pa(n+1) is next smallest prime beginning with pa(n), initial prime is 11.

AUTHOR

Patrick De Geest, May 15 1999.

STATUS

reviewed

editing