|
Search: id:A080374
|
|
|
| A080374 |
|
a(n)=lcm of first n consecutive prime differences. |
|
+0
6
|
|
| 1, 2, 2, 4, 4, 4, 4, 4, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 24, 24, 24, 24, 24, 24, 168, 168, 168, 168, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, 840
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
n=25: first 25 distinct differences are {1,2,4,6,8}, lcm=24=a(25)
|
|
MATHEMATICA
|
tb[x_] := Table[Prime[w+1]-Prime[w], {w, 1, x}] Table[Apply[LCM, tb[j]], {j, 1, 256}]
|
|
CROSSREFS
|
Cf. A001223, A080375.
Adjacent sequences: A080371 A080372 A080373 this_sequence A080375 A080376 A080377
Sequence in context: A063095 A082852 A083551 this_sequence A035683 A001670 A100144
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Feb 27 2003
|
|
|
Search completed in 0.002 seconds
|
