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

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
        3;
    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