A088412 A088258 indexed by A000142.

1, 2, 3, 4, 6, 7, 11, 12, 14, 27, 30, 32, 33, 37, 38, 41, 73, 77, 94, 116, 154, 166, 320, 324, 340, 379, 399, 427, 469, 546, 872, 974, 1477, 1963, 3507, 3610, 6380, 6917, 21480, 26951, 34790, 94550, 103040, 110059, 147855, 150209, 208003

Offset: 1

Author

Ray Chandler, Sep 29 2003

Keywords

• nonn

Comments

Union of A002981 and A002982, except 0. - Andrey Zabolotskiy, Aug 25 2016

Terms correspond to indices m where A056752(m)=1, excepting m=2. - Bill McEachen, May 20 2025

Links

• Hisanori Mishima, Primes near n!, Dec 2008.

Crossrefs

Cf. A000142, A088258.

Programs

Maple

select(t -> isprime(t!-1) or isprime(t!+1), [$1..600]); # Robert Israel, Aug 25 2016

Mathematica

Select[Range[10^3], Or @@ PrimeQ@ {# - 1, # + 1} &[#!] &] (* Michael De Vlieger, Aug 25 2016 *)

Formula

a(n) is such positive k that A088258(n) = A000142(k).

Extensions

Values 320 to 546 extracted from Mishima's table by R. J. Mathar, Mar 05 2010

More terms and correction of the initial term from Andrey Zabolotskiy, Aug 25 2016