login
A029945
Smallest square containing n-th prime as substring.
2
25, 36, 25, 576, 1156, 1369, 1764, 196, 2304, 529, 3136, 3721, 441, 4356, 4761, 5329, 5929, 361, 676, 17161, 7396, 7921, 8836, 289, 30976, 101124, 103041, 51076, 109561, 113569, 12769, 21316, 137641, 13924, 114921, 15129, 157609
OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A086935 A077689 A018796 * A264906 A374935 A263095
KEYWORD
nonn,look,base
STATUS
approved