|
%I #2 Mar 31 2012 10:22:09
%S 7,19,73,433,3457,72577,1669249,43400449,1302013441,46872483841,
%T 1734281902081,67636994181121,2840753755607041,153400702802780161,
%U 8743840059758469121,638300324362368245761,52978926922076564398081
%N a(n)= primes arising A144722
%t k = 3; a = {}; Do[If[PrimeQ[k n + 1], AppendTo[a, k n+1 ]; k = k n ], {n, 1, 3000}]; a (*Artur Jasinski*)
%Y 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
|
