1,1

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

3 is a member as 139 is a prime. 11 is a member as 111121 (concatenation of 1,11 and 121) is prime.

Select[ Range[1000], PrimeQ[ FromDigits[ Join[ IntegerDigits[ #^0], IntegerDigits[ # ], IntegerDigits[ #^2]]]] &]

Cf. A068702.

Sequence in context: A300381 A006876 A031239 * A031318 A082485 A322595

Adjacent sequences: A088616 A088617 A088618 * A088620 A088621 A088622

base,nonn

Amarnath Murthy, Oct 17 2003

Edited and extended by Robert G. Wilson v and Ray Chandler, Oct 18 2003

approved