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

Comments

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

Links

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

Hisanori Mishima, Primes near n!, Dec 2008.

Formula

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

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

Crossrefs

Cf. A000142, A088258.

Sequence in context: A158806 A184966 A018723 * A352192 A074177 A036470

Adjacent sequences: A088409 A088410 A088411 * A088413 A088414 A088415

Keyword

nonn

Author

Ray Chandler, Sep 29 2003

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

Status

approved