login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A073640 a(1) = 2; a(n) = smallest prime greater than the previous term such that concatenation of two successive terms is a prime. 6
2, 3, 7, 19, 31, 37, 61, 73, 127, 139, 199, 211, 229, 283, 397, 433, 439, 463, 523, 541, 547, 577, 601, 607, 619, 739, 751, 787, 811, 919, 937, 991, 1009, 1021, 1039, 1093, 1201, 1213, 1297, 1447, 1453, 1459, 1471, 1483, 1657, 1663, 1723, 1783, 1867, 1879 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..50.

EXAMPLE

a(1)=2, the next prime is 3 and when 2 and 3 are concatenated we get 23, another prime. Hence a(2)=3. Likewise, a(3)=7 because 37 is prime, whereas the next prime after 3 is "5" which would lead to the nonprime "35".

MAPLE

pout := [2]: nout := [1]: for n from 2 to 1000 do: p := ithprime(n): d := parse(cat(pout[nops(pout)], p)): if (isprime(d)) then pout := [op(pout), p]: nout := [op(nout), n]: fi: od:

MATHEMATICA

t = {i = 2}; Do[While[! PrimeQ[FromDigits[Flatten[IntegerDigits[{Last[t], x = Prime[i]}]]]], i++]; AppendTo[t, x], {49}]; t (* Jayanta Basu, Jul 03 2013 *)

CROSSREFS

Sequence in context: A074855 A038935 A214627 * A174568 A005382 A195354

Adjacent sequences:  A073637 A073638 A073639 * A073641 A073642 A073643

KEYWORD

base,nonn

AUTHOR

Amarnath Murthy, Aug 09 2002

EXTENSIONS

More terms from Mark Hudson (mrmarkhudson(AT)hotmail.com), Jan 31 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 26 01:08 EDT 2019. Contains 321479 sequences. (Running on oeis4.)