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,1

Links

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

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

Adjacent sequences: A029942 A029943 A029944 * A029946 A029947 A029948

Keyword

nonn,look,base

Author

Patrick De Geest

Status

approved