|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|