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,1

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.

Example

Since 4$ = 6 the prime 5 is listed.

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 *)

Crossrefs

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

Sequence in context: A045457 A165557 A138242 * A122729 A347531 A356716

Adjacent sequences: A163073 A163074 A163075 * A163077 A163078 A163079

Keyword

nonn

Author

Peter Luschny, Jul 21 2009

Extensions

More terms from Jinyuan Wang, Mar 22 2020

Status

approved