%I #12 May 09 2017 18:26:15
%S 25,36,25,576,1156,1369,1764,196,2304,529,3136,3721,441,4356,4761,
%T 5329,5929,361,676,17161,7396,7921,8836,289,30976,101124,103041,51076,
%U 109561,113569,12769,21316,137641,13924,114921,15129,157609
%N Smallest square containing n-th prime as substring.
%H John Cerkan, <a href="/A029945/b029945.txt">Table of n, a(n) for n = 1..10000</a>
%t With[{e = 2}, Table[Function[p, k = 1; While[Length@ SequencePosition[ IntegerDigits[Set[c, k^e]], p] == 0, k++]; c]@ IntegerDigits@ Prime@ n, {n, 37}]] (* _Michael De Vlieger_, May 04 2017, Version 10.1 *)
%K nonn,look,base
%O 1,1
%A _Patrick De Geest_