Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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