How to count
- To: mathgroup at smc.vnet.net
- Subject: [mg125683] How to count
- From: Artur <grafix at csl.pl>
- Date: Thu, 29 Mar 2012 02:55:25 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Reply-to: grafix at csl.pl
Dear Mathematica Gurus!
I have seriously problem with counting distances between smallest square
bigger than n! (for big n) e.g.
aa = {}; Do[k = 1 + Floor[Sqrt[n!]]; kk = k^2 - n!; Print[kk];
kkk = N[Log[kk], 100]; Print[kkk];
AppendTo[aa, kkk], {n, 1, 10000000, 1000000}]; aa
Who have idea how to count this on Mathematica?
Best wishes
Artur
- Follow-Ups:
- Re: How to count
- From: "Harvey P. Dale" <hpd1@nyu.edu>
- Re: How to count