A068701 Primes in the concatenation n^2, n and 1.

421, 2551, 6481, 8191, 289171, 729271, 1024321, 1521391, 1681411, 3136561, 3600601, 4225651, 4356661, 4624681, 5184721, 6084781, 7921891, 9604981, 116641081, 136891171, 144001201, 163841281, 174241321

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

6481 is a prime which is a concatenation of 8^2, 8 and 1.

Mathematica

Select[Table[FromDigits[Flatten[{IntegerDigits[n^2], IntegerDigits[n], {1}}]], {n, 1000}], PrimeQ] (* Vincenzo Librandi, Mar 13 2013 *)

Prog

(Magma) [nn1: n in [1..200] | IsPrime(nn1) where nn1 is Seqint([1] cat Intseq(n) cat Intseq(n^2))]; // Vincenzo Librandi, Mar 13 2013

Crossrefs

Sequence in context: A023353 A142853 A217587 * A340157 A302284 A353045

Adjacent sequences: A068698 A068699 A068700 * A068702 A068703 A068704

Keyword

base,nonn

Author

Amarnath Murthy, Mar 04 2002

Status

approved