A066269 Indices of primes in A066268.
2, 3, 33
Offset: 1
Links
- Carlos Rivera, Puzzle 118. Primorial product numbers, The Prime Puzzles & Problems Connection.
- Eric Weisstein's World of Mathematics, Primorial.
Programs
-
Mathematica
Select[Range[65], PrimeQ[Product[Product[Prime[i],{i,1,n}],{n,1,#}]-1]&] (* Stefan Steinerberger, Apr 12 2006 *)
Extensions
Offset changed from 0 to 1 by Harry J. Smith, Feb 08 2010
Comments