|
| |
|
|
A134742
|
|
Numbers whose square is a permutational number A134640.
|
|
2
|
|
|
|
0, 1, 15, 50, 85, 195, 327, 561, 789, 867, 1323, 1764, 2450, 2751, 3213
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
COMMENTS
|
A134741(n)^(1/2)=a(n)
|
|
|
LINKS
|
Table of n, a(n) for n=1..15.
|
|
|
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}]; Sqrt[a] (*Artur Jasinski*)
|
|
|
CROSSREFS
|
Cf. A134640, A134641, A134642, A134643, A134644, A023811, A134741.
Sequence in context: A199899 A020257 A103777 * A191746 A029941 A194851
Adjacent sequences: A134739 A134740 A134741 * A134743 A134744 A134745
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Artur Jasinski, Nov 07 2007
|
|
|
STATUS
|
approved
|
| |
|
|
