A034089 Numbers that are proper divisors of the number you get by rotating digits right once.
102564, 128205, 142857, 153846, 179487, 205128, 230769, 102564102564, 128205128205, 142857142857, 153846153846, 179487179487, 205128205128, 230769230769, 1012658227848, 1139240506329, 102564102564102564
Offset: 1
Links
- M. F. Hasler, Table of n, a(n) for n = 1..124
Crossrefs
Programs
-
PARI
period(p,q,S=[])=until(setsearch(S,p),S=setunion(S,[p]);p=10*p%q);S=[];until(p==S[1],S=concat(S,p);p=10*p%q);S*10\q /* print list of periods, right-rotated and ratio */ rotquo(n,d)={d=divrem(n,10);d[1]+=d[2]*10^#Str(d[1]);[n,d[1],d[1]/n]} for(k=2,9,for(i=k,9,print1( i/(10*k-1),"\t",rotquo(sum(j=1,#p=period(i,k*10-1),p[j]*10^(#p-j))))) /* build the sequence up to the greatest period */ A034089()={local(S=[],p); for(k=2,9,for(i=k,9,S=concat(S,sum(j=1,#p=period(i,k*10-1),p[j]*10^(#p-j))))); S=vecsort(S); for(i=1,#S, for(c=2,58\p=#Str(S[i]), S=concat(S,S[i]*(10^(c*p)-1)/(10^p-1)) )); vecsort(S)} \\ M. F. Hasler, Nov 18 2007
Extensions
Edited, corrected and extended by M. F. Hasler, Nov 18 2007
Comments