%I #5 Jun 20 2012 12:04:07
%S 3,2,3,31,25,2,721,16,561,13,3628801,11,479001601,361,9,316,
%T 20922789888001,281,6402373705728001,7,241,1814401,
%U 1124000727777607680001,6,1596673,239500801,1478401,181
%N a(n) = A136156(n) + 1.
%t a = {}; Do[m = 1; While[ ! IntegerQ[(n + Prime[m]!)/n], m++ ]; AppendTo[a, (n + Prime[m]!)/n], {n, 1, 100}]; a (*Artur Jasinski*)
%Y Cf. A136156.
%Y Cf. A082672, A089085, A089130, A117141, A007749, A139056-A139066, A020458, A139068, A137390, A139070-A139075, A139148-A139157, A139159, A139160-A139166, A139089, A139168-A139170.
%K nonn
%O 1,1
%A _Artur Jasinski_, Apr 11 2008