|
Search: id:A134741
|
|
| |
|
| 0, 1, 225, 2500, 7225, 38025, 106929, 314721, 622521, 751689, 1750329, 3111696, 6002500, 7568001, 10323369
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
a(n)^(1/2)=A134742(n)
|
|
MATHEMATICA
|
a = {}; b = {}; Do[AppendTo[b, n]; w = Permutations[b]; Do[j = FromDigits[w[[m]], n + 1]; If[IntegerQ[j^(1/2)], AppendTo[a, j]], {m, 1, Length[w]}], {n, 0, 7}]; a (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A134640, A134641, A134642, A134643, A134644, A134703, A134742.
Adjacent sequences: A134738 A134739 A134740 this_sequence A134742 A134743 A134744
Sequence in context: A076395 A105925 A014771 this_sequence A110204 A051364 A061051
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 07 2007
|
|
|
Search completed in 0.002 seconds
|
