1,1

For smallest daughter factorial prime p of order n (smallest p such that (p!+n)/n = p!/n + 1 is prime) see A139074

a(19) is currently unknown.

a(20)=5, a(21)=7, a(22)=19

a(19)>10000, a(23)=71, a(24)=3361 (from Andrew V. Sutherland (drew(AT)math.mit.edu), Apr 23 2008), a(52)=17, a(53)>10000

a(25)=17, a(26)=223, a(27)=157, a(28)=7, a(29)=41, a(30)=5, a(31)=31, a(32)=71, a(33)=13, a(34)=37, a(35)=19, a(36)=7, a(37)=47, a(38)=53, a(39)=13, a(40)=5, a(41)=127, a(42)=13, a(43)=67, a(44)=11, a(45)=17, a(46)=43, a(47)=71, a(48)=11, a(49)=19, a(50)=29, a(51)=17

a(54)=11, a(55)=23, a(56)=7, a(57)=433

a = {}; Do[k = 1; While[ ! PrimeQ[(Prime[k]! - n)/n], k++ ]; Print[a]; AppendTo[a, Prime[k]], {n, 1, 100}]; a (*Artur Jasinski*)

Cf. A139074, A139189, A139190, A139191, A139192, A139193, A139194, A139195, A139196, A139197, A139198, A136019, A136020, A136026, A136027.

Adjacent sequences: A139203 A139204 A139205 this_sequence A139207 A139208 A139209

Sequence in context: A098340 A075020 A138962 this_sequence A100651 A124244 A096351

hard,more,nonn

Artur Jasinski (grafix(AT)csl.pl), Apr 11 2008, Apr 24 2008