A083552 Quotient when LCM of 2 consecutive prime differences is divided by GCD of the same two differences.
2, 1, 2, 2, 2, 2, 2, 6, 3, 3, 6, 2, 2, 6, 1, 3, 3, 6, 2, 3, 6, 6, 12, 2, 2, 2, 2, 2, 14, 14, 6, 3, 5, 5, 3, 1, 6, 6, 1, 3, 5, 5, 2, 2, 6, 1, 3, 2, 2, 6, 3, 5, 15, 1, 1, 3, 3, 6, 2, 5, 35, 14, 2, 2, 14, 21, 15, 5, 2, 6, 12, 12, 1, 6, 6, 12, 2, 2, 20, 5, 5, 5, 3, 6, 6, 12, 2, 2, 2, 3, 6, 2, 2, 2, 6, 2, 6, 9
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
f[x_] := Prime[x+1]-Prime[x]; Table[LCM[f[w+1], f[w]]/GCD[f[w+1], f[w]], {w, 1, 128}]
-
PARI
a(n) = my(da=prime(n+2)-prime(n+1), db=prime(n+1)-prime(n)); lcm(da, db)/gcd(da, db) \\ Felix Fröhlich, Jan 05 2019
Comments