OFFSET
1,1
EXAMPLE
prime(45277466) = 884909087 is followed by {2, 4, 8, 16, 32, 10, 50, ...} difference pattern.
prime(9312431) = 166392559 initiates {4, 8, 16, 32, 64, 14, 30, ...} difference pattern of consecutive primes.
MATHEMATICA
d[x_] := Prime[x+1]-Prime[x]; k=0; Do[s=d[n]; If[Equal[d[n+1], 2*s]&&Equal[d[n+2], 4*s]&&Equal[d[n+3], 8*s] &&Equal[d[n+4], 16*s], k=k+1; Print[{n, Prime[n]}]], {n, 1, 100000000}]
(* or *)
prmsUpTo[k_] :=
First /@ Select[Partition[Prime@ Range[PrimePi[k]], 6, 1],
Differences @# == {2, 4, 8, 16, 32} &]; prmsUpTo[10^9] (* Mikk Heidemaa, Apr 26 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 22 2003
EXTENSIONS
More terms from Jinyuan Wang, Feb 10 2021
STATUS
approved