OFFSET
1,1
COMMENTS
See definition in comment to A175522.
The even terms begin: 2, 4, 26, 38, 46, 58, 62, 74, 3698, 34226, 34726, ... - Michel Marcus, Feb 08 2016
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
floor(sqrt(35))=5; floor(sqrt(1))+floor(sqrt(5))+floor(sqrt(7))=5. Therefore, 35 is in the sequence.
MATHEMATICA
f[n_] := Sum[Floor[Sqrt[Divisors[n][[i]]]], {i, 1, Length[Divisors[n]] - 1}]; Select[Range[3000], f[#] == Floor[Sqrt[#]] &]
PROG
(PARI) isok(n) = sumdiv(n, d, (d<n)* sqrtint(d)) == sqrtint(n); \\ Michel Marcus, Feb 08 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Dec 07 2010
EXTENSIONS
More terms from Michel Marcus, Feb 08 2016
STATUS
approved