The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A046734

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A046734

Period of A000213 mod n.
(history; published version)

#10 by Charles R Greathouse IV at Fri Dec 18 10:05:17 EST 2015

STATUS

editing

approved

#9 by Charles R Greathouse IV at Thu Dec 10 17:34:09 EST 2015

LINKS

Charles R Greathouse IV, <a href="/A046734/b046734.txt">Table of n, a(n) for n = 1..1000</a>

PROG

(PARI) isper(v, startAt=1)=for(k=startAt, #v-3, for(i=1, 3, if(v[i]!=v[k+i], next(2))); return(k)); 0

ap(p)=my(v=vector(99), t); v[1]=v[2]=v[3]=1; for(i=4, #v, v[i]=sum(j=i-3, i-1, v[j])%p); while((t=isper(v, if(#v>99, #v/2-2, 1)))==0, v=concat(v, vector(#v)); for(i=#v/2+1, #v, v[i]=sum(j=i-3, i-1, v[j])%p)); t

ape(p, e)=if(p==2, return(if(e>1, p^e, 1))); if(e==1, return(ap(p))); my(pe=p^e, P=ap(p)*p^(e-1), v=vector(P+3)); v[1]=v[2]=v[3]=1; for(i=4, #v, v[i]=sum(j=i-3, i-1, v[j])%pe); isper(v)

a(n)=my(f=factor(n)); lcm(vector(#f~, i, ape(f[i, 1], f[i, 2]))) \\ Charles R Greathouse IV, Dec 10 2015

STATUS

approved

editing

Discussion

Thu Dec 17

20:03

OEIS Server: This sequence has not been edited or commented on for a week
yet is not proposed for review.  If it is ready for review, please
visit https://oeis.org/draft/A046734 and click the button that reads
"These changes are ready for review by an OEIS Editor."

Thanks.
  - The OEIS Server

#8 by Russ Cox at Fri Mar 30 18:35:36 EDT 2012

AUTHOR

_David W. Wilson (davidwwilson(AT)comcast.net)_

Discussion

Fri Mar 30

18:35

OEIS Server: https://oeis.org/edit/global/202

#7 by N. J. A. Sloane at Thu Nov 11 07:34:06 EST 2010

LINKS

Nick Hobson, <a href="/A046734/a046734.py.txt">Python program for this sequence</a>

KEYWORD

nonn,new

nonn

#6 by N. J. A. Sloane at Fri Feb 27 03:00:00 EST 2009

LINKS

Nick Hobson, <a href="http://www.research.att.com/~njas/sequences/a046734.py.txt">Python program for this sequence</a>

KEYWORD

nonn,new

nonn

#5 by N. J. A. Sloane at Fri May 11 03:00:00 EDT 2007

LINKS

Nick Hobson, <a href="http://www.research.att.com/~njas/sequences/a046734.py.txt">Python program for this sequence</a>

KEYWORD

nonn,new

nonn

#4 by N. J. A. Sloane at Sat Sep 13 03:00:00 EDT 2003

KEYWORD

nonn,new

nonn

AUTHOR

David W. Wilson (davidwwilson(AT)attbicomcast.comnet)

#3 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003

KEYWORD

nonn,new

nonn

AUTHOR

dww

David W. Wilson (davidwwilson(AT)attbi.com)

#2 by N. J. A. Sloane at Mon May 08 03:00:00 EDT 2000

KEYWORD

nonn,new

nonn

AUTHOR

David W. Wilson ([email protected])

dww

#1 by N. J. A. Sloane at Sat Dec 11 03:00:00 EST 1999

NAME

Period of A000213 mod n.

DATA

1, 1, 13, 4, 31, 13, 48, 8, 39, 31, 110, 52, 168, 48, 403, 16, 96, 39, 360, 124, 624, 110, 553, 104, 155, 168, 117, 48, 140, 403, 331, 32, 1430, 96, 1488, 156, 469, 360, 2184, 248, 560, 624, 308, 220, 1209, 553, 46, 208, 336, 155, 1248, 168, 52, 117

OFFSET

1,3

KEYWORD

nonn

AUTHOR

David W. Wilson ([email protected])

STATUS

approved