This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A088412 #31 May 25 2025 23:29:19
%S A088412 1,2,3,4,6,7,11,12,14,27,30,32,33,37,38,41,73,77,94,116,154,166,320,
%T A088412 324,340,379,399,427,469,546,872,974,1477,1963,3507,3610,6380,6917,
%U A088412 21480,26951,34790,94550,103040,110059,147855,150209,208003
%N A088412 A088258 indexed by A000142.
%C A088412 Union of A002981 and A002982, except 0. - _Andrey Zabolotskiy_, Aug 25 2016
%C A088412 Terms correspond to indices m where A056752(m)=1, excepting m=2. - _Bill McEachen_, May 20 2025
%H A088412 Hisanori Mishima, <a href="http://www.asahi-net.or.jp/~KC2H-MSM/mathland/matha2/fact_prp.htm">Primes near n!</a>, Dec 2008.
%F A088412 a(n) is such positive k that A088258(n) = A000142(k).
%p A088412 select(t -> isprime(t!-1) or isprime(t!+1), [$1..600]); # _Robert Israel_, Aug 25 2016
%t A088412 Select[Range[10^3], Or @@ PrimeQ@ {# - 1, # + 1} &[#!] &] (* _Michael De Vlieger_, Aug 25 2016 *)
%Y A088412 Cf. A000142, A088258.
%K A088412 nonn
%O A088412 1,2
%A A088412 _Ray Chandler_, Sep 29 2003
%E A088412 Values 320 to 546 extracted from Mishima's table by _R. J. Mathar_, Mar 05 2010
%E A088412 More terms and correction of the initial term from _Andrey Zabolotskiy_, Aug 25 2016