|
| |
|
|
A085051
|
|
Smallest multiple of n sandwiched between two numbers both having square divisors.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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
| Sequence in context: A034963 A120143 A031204 * A171954 A154277 A140150
Adjacent sequences: A085048 A085049 A085050 * A085052 A085053 A085054
|
|
|
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
|
| |
|
|
