|
| |
|
|
A238334
|
|
Squares that do not contain a shorter substring that is a square.
|
|
4
|
|
|
|
0, 1, 4, 9, 25, 36, 576, 676, 5776, 27556, 33856, 538756, 586756, 665856, 682276, 763876, 767376, 853776, 872356, 2637376, 2775556, 2835856, 5635876, 6885376, 7376656, 22886656, 23755876, 23775376, 26275876, 26687556, 26873856, 32672656, 32878756, 37527876
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
Giovanni Resta, Table of n, a(n) for n = 1..10000
Wikipedia, Substring
|
|
|
MATHEMATICA
|
fQ[n_] := Module[{d = IntegerDigits[n], len, ds, sq}, len = Length[d]; ds = FromDigits /@ Flatten[Table[Partition[d, i, 1], {i, len - 1}], 1]; sq = Select[ds, IntegerQ[Sqrt[#]] &]; sq == {}]; Select[Range[0, 10000]^2, fQ]
|
|
|
CROSSREFS
|
Cf. A130448.
Sequence in context: A087058 A046659 A063760 * A130448 A046451 A341790
Adjacent sequences: A238331 A238332 A238333 * A238335 A238336 A238337
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
T. D. Noe, Mar 05 2014
|
|
|
STATUS
|
approved
|
| |
|
|
