A375975 Products m of k = 4 consecutive primes p_1..p_k, where only p_1 < m^(1/k).
257557397, 490995677, 1314423991, 2445956099, 8756100193, 14406533983, 34491476237, 168268429891, 453178561051, 526847565721, 588771800473, 673542175381, 874245022517, 1129796633837, 1267153039517, 1385645583389, 1742522070781, 2638237130051, 3021997659211, 3389753359877
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..65536
Programs
-
Mathematica
k = 4; s = {1}~Join~Prime[Range[k - 1]]; Reap[Do[s = Append[Rest[s], Prime[i + k - 1]]; r = Surd[Times @@ s, k]; If[Count[s, _?(# < r &)] == 1, Sow[Times @@ s] ], {i, 120}] ][[-1, 1]]
Comments