OFFSET
1,1
COMMENTS
A number k is in this sequence iff k is a multiple of some term in A024364.
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000 (first 1000 terms from Vincenzo Librandi)
Ron Knott, Pythagorean Triples and Online Calculators.
MAPLE
isA010814 := proc(an) local a::integer, b::integer, c::integer ; for c from 1 to floor(an/2) do for a from floor(c/sqrt(2)) to c-1 do if issqr(c^2-a^2) then b := sqrt(c^2-a^2) ; if a+b+c = an then RETURN(true) ; fi ; fi ; od ; od : RETURN(false) ; end : for n from 3 to 400 do if isA010814(n) then printf("%d, ", n) ; fi ; od ; # R. J. Mathar, Jun 08 2006
MATHEMATICA
lst={}; Do[Do[If[IntegerQ[c=Sqrt[a^2+b^2]], AppendTo[lst, a+b+c]], {b, a-1, Floor[Sqrt[a]], -1}], {a, 4, 4*5!}]; Take[Union@lst, 100] (* Vladimir Joseph Stephan Orlovsky, Nov 23 2010 *)
q[n_] := EvenQ[n] && Module[{d = Divisors[n/2]}, AnyTrue[Range[3, Length[d]], d[[#]] < 2 * d[[#-1]] &]]; Select[Range[350], q] (* Amiram Eldar, Oct 19 2024 *)
CROSSREFS
KEYWORD
nonn,easy,changed
AUTHOR
Ben Manvel (manvel(AT)lagrange.math.colostate.edu)
EXTENSIONS
More terms from Ray Chandler, Mar 13 2004
STATUS
approved