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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A210712 Primes formed by concatenating n, n, n, and 1 for n = 1, 2, 3,.... 3
2221, 3331, 4441, 6661, 1212121, 1616161, 2323231, 2424241, 2828281, 3131311, 3232321, 3333331, 3636361, 3838381, 4040401, 4242421, 4545451, 5454541, 5858581, 6262621, 6868681, 6969691, 7171711, 7272721, 8282821, 9090901, 9999991, 1161161161 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
This is to three (duplicated strings concatenated) as A210511 is to two (duplicated strings concatenated).
LINKS
EXAMPLE
a(1) = 2221 because "2" concatenated with "2" concatenated with "2" concatenated with "1" = 2221, which is prime.
9393931 is not in the sequence, even though formed by concatenating n, n, n, and 1 for n = 93, because 9393931 = 211^3 is composite.
MATHEMATICA
Select[Table[FromDigits[Flatten[{IntegerDigits[n], IntegerDigits[n], IntegerDigits[n], IntegerDigits[1], {}}]], {n, 1000}], PrimeQ] (* Vincenzo Librandi, Mar 13 2013 *)
Select[FromDigits/@Table[Flatten[IntegerDigits/@PadLeft[{1}, 4, n]], {n, 120}], PrimeQ] (* Harvey P. Dale, May 12 2015 *)
PROG
(Magma) [nnn1: n in [1..120] | IsPrime(nnn1) where nnn1 is Seqint([1] cat Intseq(n) cat Intseq(n) cat Intseq(n))]; // Bruno Berselli, Jan 30 2013
(PARI) a(n) = { my(p=Str(prime(n))); eval(concat(concat(concat(p, p), p), 1)); } /* Joerg Arndt, Mar 14 2013 */
CROSSREFS
Cf. A210511.
Sequence in context: A223158 A241963 A092992 * A260175 A166580 A091189
KEYWORD
nonn,base,easy
AUTHOR
Jonathan Vos Post, Jan 29 2013
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 13 09:52 EDT 2024. Contains 374274 sequences. (Running on oeis4.)