A163076 Primes of the form k$ - 1. Here '$' denotes the swinging factorial function (A056040).

5, 19, 29, 139, 251, 12011, 48619, 51479, 155117519, 81676217699, 1378465288199, 5651707681619, 386971244197199, 1580132580471899, 30067266499541039, 6637553085023755473070799, 35257120210449712895193719, 399608854866744452032002440111

Offset: 1

Author

Peter Luschny, Jul 21 2009

Keywords

• nonn

Examples

			Since 4$ = 6 the prime 5 is listed.
		

Links

• Jinyuan Wang, Table of n, a(n) for n = 1..53
• Peter Luschny, Die schwingende Fakultät und Orbitalsysteme, August 2011.
• Peter Luschny, Swinging Primes.

Crossrefs

Cf. A055490, A056040, A163078 (arguments k), A163074, A163075.

Programs

Maple

a := proc(n) select(isprime, map(x -> A056040(x)-1,[$1..n])); sort(%) end:

Mathematica

Reap[Do[f = n!/Quotient[n, 2]!^2; If[PrimeQ[p = f - 1], Sow[p]], {n, 1, 70}]][[2, 1]] // Union (* Jean-François Alcover, Jun 28 2013 *)

Extensions

More terms from Jinyuan Wang, Mar 22 2020