A056983 - OEIS

A056983

Primes p which divide Sum_{i=1..m} i! for some m (see A125138).

3, 11, 17, 23, 29, 37, 41, 43, 53, 67, 73, 79, 97, 101, 107, 109, 127, 131, 139, 149, 151, 157, 163, 173, 191, 199, 211, 229, 239, 251, 257, 263, 271, 281, 283, 293, 307, 311, 313, 331, 337, 347, 349, 359, 373, 379, 383, 389, 397, 409, 421, 433, 443, 449

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

Eric Weisstein's World of Mathematics, Smarandache-Wagstaff Function.

MAPLE

isA056983 := proc(p)

local idxp ;

if not isprime(p) then

return false ;

end if;

idxp := numtheory[pi](p) ;

if A125138(idxp) > 0 then

true ;

else

false ;

end if;

end proc:

A056983 := proc(n)

option remember ;

local p;

if n = 1 then

else

p := procname(n-1) ;

while true do

p := nextprime(p) ;

if isA056983(p) then

return p;

end if;

end do:

end if;

end proc:

seq(A056983(n), n=1..70) ; # R. J. Mathar, Mar 26 2024

CROSSREFS

Cf. A007489, A056984, A056985, A125138.

Sequence in context: A057179 A322962 A075334 * A175073 A062284 A141339

Adjacent sequences: A056980 A056981 A056982 * A056984 A056985 A056986

KEYWORD

nonn

AUTHOR

Eric W. Weisstein

STATUS

approved