A065965 Numbers k that divide A039916(k).

1, 2, 3, 9, 18, 21, 43, 59, 74, 557, 8292, 31898, 68595, 530152, 599960, 724192, 1373197, 1452846, 5125588, 5776688

Offset

1,2

Comments

Next term, if it exists, is greater than 10000000. - Vaclav Kotesovec, Oct 06 2014

Links

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

Example

A039916(9) = 141592653 = 9*15732517, so 9 is a term of this sequence.

Maple

for n from 1 do
    if modp(A039916(n), n) = 0 then
        print(n);
    end if;
end do: # R. J. Mathar, Oct 04 2014

Mathematica

picif=RealDigits[Pi-3, 10, 100000][[1]]; t=0; Do[t=10*t+picif[[j]]; If[Divisible[t, j], Print[j]], {j, 1, Length[picif]}] (* Vaclav Kotesovec, Oct 06 2014 , 7 CPU hours with 10000000 *)

Prog

(PARI) a065965(m, n) = {local(pr, pi, k); pr=default(realprecision, 1); default(realprecision, n); p=Pi-3; for(k=m, n, if(truncate(p*10^k)%k==0, print1(k, ", "))); default(realprecision, pr); }
a065965(1, 2^15)

Crossrefs

Cf. A039916.

Sequence in context: A295965 A034467 A234646 * A296052 A108827 A298347

Adjacent sequences: A065962 A065963 A065964 * A065966 A065967 A065968

Keyword

base,nonn,more

Author

Jason Earls, Dec 08 2001

Extensions

a(12) from Klaus Brockhaus, Dec 10 2001

a(13)-a(16) from Jeff Heleen, Sep 28 2014

a(17)-a(20) from Vaclav Kotesovec, Oct 06 2014

Status

approved