|
%I #11 Oct 10 2017 03:08:17
%S 3,5,13,61,421,3361,30241,332641,3991681,55883521,950019841,
%T 19000396801,456009523201,13680285696001,465129713664001,
%U 20465707401216001,1473530932887552001,125250129295441920001,10771511119408005120001
%N a(n) = n-th prime arising A144717.
%H Jon E. Schoenfield, <a href="/A144718/b144718.txt">Table of n, a(n) for n = 1..282</a>
%F a(n) = 2*Product_{k=1..n} A144717(k) + 1.
%t k = 2; a = {}; Do[If[PrimeQ[k n + 1], AppendTo[a, k n+1 ]; k = k n ], {n, 1, 3000}]; a
%Y Cf. A046966, A046972, A144717, A144718, A144722, A144723, A144724, A144725, A144726, A144727, A144728, A144729, A144730, A144731.
%K nonn
%O 1,1
%A _Artur Jasinski_, Sep 19 2008
|
