|
Search: id:A085050
|
|
|
| A085050 |
|
Smallest multiple of n sandwiched between two square-free numbers. |
|
+0
1
|
|
| 4, 4, 6, 4, 20, 6, 14, 16, 18, 20, 22, 12, 52, 14, 30, 16, 34, 18, 38, 20, 42, 22, 92, 72, 150, 52, 54, 56, 58, 30, 186, 32, 66, 34, 70, 36, 222, 38, 78, 40, 164, 42, 86, 88, 90, 92, 94, 96, 196, 150, 102, 52, 106, 54, 110, 56, 114, 58, 236, 60, 366, 186, 252, 128, 130, 66
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
PrimeExponents[n_] := Flatten[ Table[ # [[2]], {1}] & /@ FactorInteger[n]]; f[n_] := Block[{k = 1}, While[ Union[ PrimeExponents[k*n - 1]] != {1} || Union[ PrimeExponents[k*n + 1]] != {1}, k++ ]; k*n]; Table[ f[n], {n, 2, 70}]
|
|
CROSSREFS
|
Sequence in context: A010659 A131089 A066560 this_sequence A071256 A078240 A016710
Adjacent sequences: A085047 A085048 A085049 this_sequence A085051 A085052 A085053
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (amarnath_murthy(AT)yahoo.com), Jun 20 2003
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 27 2003
|
|
|
Search completed in 0.002 seconds
|
