A029945 Smallest square containing n-th prime as substring.

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

Author

Patrick De Geest

Keywords

• nonn
• look
• base

Links

• John Cerkan, Table of n, a(n) for n = 1..10000

Programs

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 *)