|
Search: id:A134742
|
|
| |
|
| 0, 1, 15, 50, 85, 195, 327, 561, 789, 867, 1323, 1764, 2450, 2751, 3213
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
A134741(n)^(1/2)=a(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}]; Sqrt[a] (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A134640, A134641, A134642, A134643, A134644, A134703, A134741.
Adjacent sequences: A134739 A134740 A134741 this_sequence A134743 A134744 A134745
Sequence in context: A065906 A020257 A103777 this_sequence A029941 A075928 A020214
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 07 2007
|
|
|
Search completed in 0.002 seconds
|
