OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..212
MATHEMATICA
Select[Prime@ Range[30, 3*10^5], AllTrue[{#, #^2}, Length@ SequencePosition[IntegerDigits@ #, {1, 2, 3}] > 0 &] &] (* Michael De Vlieger, Feb 01 2016, Version 10.1 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jan 29 2016
STATUS
approved