OFFSET
1,1
COMMENTS
All a(n) == 7 mod 10. - Robert Israel, May 13 2015
LINKS
MATHEMATICA
d[x_] := Prime[x+1]-Prime[x] {k1=42, k2=42, k3=42} k=0 Do[If[Equal[d[n], k1]&&Equal[d[n+1], k2]&& Equal[d[n+2], k3], k=k+1; Print[{k, n, Prime[n], Prime[n+1], Prime[n+2], Prime[n+3]}]], {n, 1, 10000000}]
Transpose[Select[Partition[Prime[Range[9000000]], 4, 1], Union[Differences[#]]=={42}&]][[1]] (* Vincenzo Librandi, Jun 21 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Dec 12 2000
EXTENSIONS
More terms from Labos Elemer, Jan 11 2002
Definition corrected by Robert Israel, May 13 2015
Definition edited by Zak Seidov, Jun 21 2015
Offset changed 0 -> 1 by Zak Seidov, Jun 21 2015
STATUS
approved