|
| |
|
|
A104210
|
|
Positive integers divisible by at least 2 consecutive primes.
|
|
1
| |
|
|
6, 12, 15, 18, 24, 30, 35, 36, 42, 45, 48, 54, 60, 66, 70, 72, 75, 77, 78, 84, 90, 96, 102, 105, 108, 114, 120, 126, 132, 135, 138, 140, 143, 144, 150, 154, 156, 162, 165, 168, 174, 175, 180, 186, 192, 195, 198, 204, 210, 216, 221, 222, 225, 228, 231, 234, 240
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 35 is divisible by both 5 and 7 and 5 and 7 are consecutive primes.
|
|
|
MATHEMATICA
| fQ[n_] := Block[{lst = PrimePi /@ Flatten[ Table[ #[[1]], {1}] & /@ FactorInteger[n]]}, Count[ Drop[lst, 1] - Drop[lst, -1], 1] > 0]; Select[ Range[244], fQ[ # ] &] (from Robert G. Wilson v Mar 16 2005)
|
|
|
CROSSREFS
| Sequence in context: A116359 A141698 A091011 * A066312 A089341 A129494
Adjacent sequences: A104207 A104208 A104209 * A104211 A104212 A104213
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Mar 13 2005
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 16 2005
|
| |
|
|
