|
Search: id:A085051
|
|
|
| A085051 |
|
Smallest multiple of n sandwiched between two numbers both having square divisors. |
|
+0
1
|
|
| 17, 26, 51, 244, 55, 846, 49, 424, 99, 170, 55, 3480, 26, 476, 1275, 1376, 17, 846, 19, 1520, 651, 638, 161, 3480, 125, 26, 243, 476, 377, 3480, 341, 1376, 99, 170, 595, 6876, 629, 874, 351, 1520, 451, 28224, 559, 2024, 1665, 874, 235, 18768, 49, 7300, 51, 5824
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
a(7) = 49 as 48 (= 4^2*3) and 50 (= 5^2*2 ) both are divisible by squares.
|
|
MATHEMATICA
|
PrimeExponents[n_] := Last[ Union[ Flatten[ Table[ # [[2]], {1}] & /@ FactorInteger[n]]]]; f[n_] := Block[{k = 1}, While[a = k*n; PrimeExponents[a - 1] < 2 || PrimeExponents[a + 1] < 2, k++ ]; k*n]; Table[ f[n], {n, 1, 52}]
|
|
CROSSREFS
|
Adjacent sequences: A085048 A085049 A085050 this_sequence A085052 A085053 A085054
Sequence in context: A034963 A120143 A031204 this_sequence A033702 A000797 A134468
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (amarnath_murthy(AT)yahoo.com), Jun 20 2003
|
|
EXTENSIONS
|
Edited, corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 21 2003
|
|
|
Search completed in 0.005 seconds
|
