OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
13, 19, 31 are three consecutive primes of the form 6n+1 and 13*19*31 = 7657. - Emeric Deutsch, Jan 21 2009
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 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jan 18 2009, Jan 21 2009
EXTENSIONS
Extended by Emeric Deutsch, Jan 21 2009
STATUS
approved