OFFSET
1,1
EXAMPLE
3 is a member as 139 is a prime. 11 is a member as 111121 (concatenation of 1,11 and 121) is prime.
MATHEMATICA
Select[ Range[1000], PrimeQ[ FromDigits[ Join[ IntegerDigits[ #^0], IntegerDigits[ # ], IntegerDigits[ #^2]]]] &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Oct 17 2003
EXTENSIONS
Edited and extended by Robert G. Wilson v and Ray Chandler, Oct 18 2003
STATUS
approved