The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A065965 Numbers n such that n divides A039916(n). 1

%I

%S 1,2,3,9,18,21,43,59,74,557,8292,31898,68595,530152,599960,724192,

%T 1373197,1452846,5125588,5776688

%N Numbers n such that n divides A039916(n).

%C Next term, if it exists, is greater than 10000000. - _Vaclav Kotesovec_, Oct 06 2014

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

%p for n from 1 do

%p if modp(A039916(n),n) = 0 then

%p print(n);

%p end if;

%p end do: # _R. J. Mathar_, Oct 04 2014

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

%o (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); }

%o a065965(1,2^15)

%Y Cf. A039916.

%K base,nonn,more

%O 1,2

%A _Jason Earls_, Dec 08 2001

%E One more term from _Klaus Brockhaus_, Dec 10 2001

%E Four more terms a(13)-a(16) from _Jeff Heleen_, Sep 28 2014

%E Terms a(17)-a(20) from _Vaclav Kotesovec_, Oct 06 2014

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 15 12:50 EDT 2020. Contains 336501 sequences. (Running on oeis4.)