[Date Index]
[Thread Index]
[Author Index]
Re: [numbertheory] prime modulo 10 power two function of gaps--> corrected function
*To*: mathgroup at smc.vnet.net
*Subject*: [mg52025] Re: [numbertheory] prime modulo 10 power two function of gaps--> corrected function
*From*: Roger Bagula <tftn at earthlink.net>
*Date*: Sun, 7 Nov 2004 01:04:24 -0500 (EST)
*References*: <418D4650.3030307@earthlink.net>
*Reply-to*: tftn at earthlink.net
*Sender*: owner-wri-mathgroup at wolfram.com
Corrected function:
digits=200
f[n_]=16*Exp[(Log[2]/2)*(Mod[Prime[n],10]-Mod[Prime[n-1],10])]
a=Table[f[n],{n,3,digits-2}]
ListPlot[a,PlotJoined->True]
{32,32,2,32,64,32,2,128,1,128,2,32,64,4,128,1,128,2,32,128,2,128,8,2,32,64,32,
2,64,2,128,32,16,1,128,4,64,4,128,1,16,32,64,32,1,32,64,32,2,128,1,16,128,4,
128,1,128,2,32,16,64,2,32,64,2,128,16,32,2,128,8,4,128,2,128,8,2,256,16,1,
16,32,128,2,128,8,2,32,64,32,8,2,256,2,128,1,32,8,128,16,4,128,1,128,16,4,
128,1,128,4,64,32,1,16,32,64,4,128,1,32,64,4,8,16,256,16,8,4,128,2,8,128,2,
256,2,64,16,32,1,16,32,64,32,16,2,64,32,2,64,2,32,64,16,2,256,16,8,2,128,4,
64,2,128,4,8,128,32,2,128,1,16,32,128,16,1,16,32,128,8,2,32,64,4,128,8,4,
128,1,32,16,8,16,128,4,8,32}
Roger Bagula wrote:
> Some time in the past a Louville number was made based on
>
>the modulo ten of the Primes past 5
>which have a digit set of (1,3,7 ,9) and a magic square
>multiplication table.
>f[n]=10-Mod[Prime[n],10]
>I noticed that their gap had a form like:
>2*Log[x]/Log[2]->x
>That fact led with some experimentaion to the integer sequence in
>powers of two (skipping 4) as an exponential function.
>With both Sqrt[2] and Exp[] as parts of it, amazingly it is always an
>integer.
>That result makes it a "special" function like a Binet.
>
>
>(* prime modulo 10 power two function of gaps : set=(1,2,8,16)*)
>digits=200
>f[n_]=Exp[(Log[2]/2)*(Mod[Prime[n],10]-Mod[Prime[n-1],1])]/Sqrt[2]
>a=Table[f[n],{n,2,digits-2}]
>ListPlot[a,PlotJoined->True]
>
>{2,4,8,1,2,8,16,2,16,1,8,1,2,8,2,16,1,8,1,2,16,2,16,8,1,2,8,16,2,8,1,8,16,16,
>
>1,8,2,8,2,16,1,1,2,8,16,1,2,8,16,2,16,1,1,8,2,16,1,8,1,2,2,8,1,2,8,1,8,8,16,
>
>2,16,8,2,16,2,16,8,1,16,16,1,1,2,16,2,16,8,1,2,8,16,8,1,16,2,16,1,2,1,8,8,2,
>
>16,1,8,8,2,16,1,8,2,8,16,1,1,2,8,2,16,1,2,8,2,1,1,16,16,8,2,16,2,1,8,1,16,2,
>
>8,8,16,1,1,2,8,16,16,2,8,16,2,8,1,2,8,8,1,16,16,8,1,8,2,8,1,8,2,1,8,16,2,16,
> 1,1,2,16,16,1,1,2,16,8,1,2,8,2,16,8,2,16,1,2,2,1,1,8,2,1,2}
>Respectfully, Roger L. Bagula
>
>tftn at earthlink.net
>
>
>
>
>
>
>------------------------ Yahoo! Groups Sponsor --------------------~--> $9.95 domain names from Yahoo!. Register anything.
>http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/8HYolB/TM
>--------------------------------------------------------------------~-> Yahoo! Groups Links
>
><*> To visit your group on the web, go to:
> http://groups.yahoo.com/group/numbertheory/
>
><*> To unsubscribe from this group, send an email to:
> numbertheory-unsubscribe at yahoogroups.com
>
><*> Your use of Yahoo! Groups is subject to:
> http://docs.yahoo.com/info/terms/
>
>
>
>
>
>
>
--
Respectfully, Roger L. Bagula
tftn at earthlink.net, 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 :
alternative email: rlbtftn at netscape.net
URL : http://home.earthlink.net/~tftn
Prev by Date:
**Re: Re: [MathGroup]: Descriptive headings**
Next by Date:
**Re: List element replacement.**
Previous by thread:
**Re: A NIntegrate question**
Next by thread:
**Variance**
| |