A154728 Products of three consecutive primes of the form 6n+1 (see A002476).
1729, 7657, 21793, 49321, 97051, 175741, 298351, 386389, 559399, 789289, 1089019, 1425829, 1924177, 2665603, 3295273, 3864241, 4631971, 5694079, 6951667, 8103877, 9363547, 10775137, 12307147, 14956219, 18091147, 21243961, 24066037
Offset: 1
Examples
13, 19, 31 are three consecutive primes of the form 6n+1 and 13*19*31 = 7657. - _Emeric Deutsch_, Jan 21 2009
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Maple
a := proc (n) if `mod`(ithprime(n), 6) = 1 then ithprime(n) else end if end proc: A := [seq(a(n), n = 1 .. 100)]: seq(A[j]*A[j+1]*A[j+2], j = 1 .. 30); # Emeric Deutsch, Jan 21 2009
-
Mathematica
Times@@@Partition[Select[Prime[Range[100]],IntegerQ[(#-1)/6]&],3,1] (* Harvey P. Dale, Jan 13 2019 *)
Extensions
Extended by Emeric Deutsch, Jan 21 2009
Comments