Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A128659
Numbers n such that p(n+1)#-p(n)#-p(n-1)#-1 is prime where p(i)#=product of first i primes=A002110(i).
5
3, 4, 5, 6, 7, 9, 13, 14, 20, 30, 40, 44, 86, 101, 135, 152, 171, 205, 4404
OFFSET
1,1
MATHEMATICA
Flatten[Position[Partition[Rest[FoldList[Times, 1, Prime[Range[210]]]], 3, 1], _?(PrimeQ[#[[3]]-#[[2]]-#[[1]]-1]&), {1}, Heads->False]]+1 (* This generates the first 18 terms of the sequence. To generate the 19th term, change the Range constant to 4410, but it will take a very long time to run. *) (* Harvey P. Dale, Apr 23 2014 *)
KEYWORD
nonn,more
AUTHOR
Pierre CAMI, Mar 19 2007
STATUS
approved