A139170 a(n) = A136156(n) + 1.

3, 2, 3, 31, 25, 2, 721, 16, 561, 13, 3628801, 11, 479001601, 361, 9, 316, 20922789888001, 281, 6402373705728001, 7, 241, 1814401, 1124000727777607680001, 6, 1596673, 239500801, 1478401, 181

Offset

1,1

Links

Table of n, a(n) for n=1..28.

Mathematica

a = {}; Do[m = 1; While[ ! IntegerQ[(n + Prime[m]!)/n], m++ ]; AppendTo[a, (n + Prime[m]!)/n], {n, 1, 100}]; a (*Artur Jasinski*)

Crossrefs

Cf. A136156.

Cf. A082672, A089085, A089130, A117141, A007749, A139056-A139066, A020458, A139068, A137390, A139070-A139075, A139148-A139157, A139159, A139160-A139166, A139089, A139168-A139170.

Sequence in context: A253381 A091806 A248244 * A139075 A089750 A109591

Adjacent sequences: A139167 A139168 A139169 * A139171 A139172 A139173

Keyword

nonn

Author

Artur Jasinski, Apr 11 2008

Status

approved