|
|
A195085
|
|
Positive integers n for which there exist exactly two integers k in {1,2,3,...,n-1} such that k*n is square.
|
|
5
|
|
|
9, 18, 27, 45, 54, 63, 90, 99, 117, 126, 135, 153, 171, 189, 198, 207, 234, 261, 270, 279, 297, 306, 315, 333, 342, 351, 369, 378, 387, 414, 423, 459, 477, 495, 513, 522, 531, 549, 558, 585, 594, 603, 621, 630, 639, 657, 666, 693, 702, 711, 738, 747, 765, 774, 783
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
It appears that the terms of this sequence are exactly 9 times those of A005117 and (9/4) times those of A133466.
Also, this sequence gives the positions of those terms where A057918(n)=2.
|
|
LINKS
|
|
|
EXAMPLE
|
Given n=9, {1*9, 2*9, ..., 8*9} = {9,18,27,36,45,54,63,72}, of which 9 and 36 are square. Thus 9 is a term of the sequence.
|
|
PROG
|
(Haskell)
a195085 n = a195085_list !! (n-1)
a195085_list = map (+ 1) $ elemIndices 2 a057918_list
(Magma) [k:k in [1..800]|#[m:m in [1..k-1]| IsSquare(m*k)] eq 2]; // Marius A. Burtea, Dec 03 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|