Search: id:A069491
Results 1-1 of 1 results found.

%I A069491
%S A069491 1,2,6,12,10,60,420,840,252,2520,2310,27720,1716,24024,360360,720720,
%T A069491 680680,12252240,25194,503880,10581480,232792560,223092870,5354228880,
%U A069491 1029659400,26771144400,2868336900,80313433200,77636318760
%N A069491 a(n) = LCM ( 1 to n) / {(n+1)(n+2)...(n+k)} where k is the largest number 
               which gives an integral value.
%t A069491 Do[a = LCM @@ Table[i, {i, n}]; k = n + 1; If[ IntegerQ[a/k], While[ 
               IntegerQ[a/k], a = a/k; k++ ]]; Print[a], {n, 1, 30}]
%Y A069491 Sequence in context: A145102 A145103 A009230 this_sequence A127698 A130503 
               A074385
%Y A069491 Adjacent sequences: A069488 A069489 A069490 this_sequence A069492 A069493 
               A069494
%K A069491 nonn
%O A069491 1,2
%A A069491 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 30 2002
%E A069491 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 01 
               2002

Search completed in 0.001 seconds