This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A144190 (0, 1, 2, 3, 2^2, 5, 2*3, 7, 2^3, 3^2, 2*5, 11, 2^2*3,..) becomes (0 mod 1, 2 mod 3, 2 mod 2, 5 mod 2, 3 mod 7, 2 mod 3, 3 mod 2, 2 mod 5, 11 mod 2, 2 mod 3,..). 0
 0, 2, 0, 1, 3, 2, 1, 2, 1, 2, 1, 1, 1, 4, 2, 2, 0, 2, 1, 11, 2, 3, 0, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 2, 2, 2, 3, 2, 5, 2, 7, 0, 2, 2, 2, 1, 1, 1, 2, 2, 1, 2, 1, 0, 5, 2, 1, 1, 29, 0, 3, 1, 1, 2, 2, 5, 2, 11, 0, 2, 1, 5, 1, 0, 2, 2, 3, 0, 2, 7, 2, 13, 2, 2, 0, 41, 0, 3, 5, 2, 3, 2, 11, 2, 2, 7, 0, 2, 1, 2, 1, 2, 1 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS EXAMPLE 2 mod 3=1=a(10). 13 mod 2=1=a(11). 7 mod 3=1=a(12). 5 mod 2=1=a(13). 4 mod 17=4=a(14). 2 mod 3=2=a(15). 2 mod 19=2=a(16). 2 mod 2=0=a(17). 5 mod 3=2=a(18). 7 mod 2=1=a(19). 11 mod 23=11=a(20), etc. MAPLE pflat := proc(nmax) local a, ifs, n, p, c ; a := [0, 1] ; for n from 2 to nmax do ifs := ifactors(n)[2] ; for p in ifs do a := [op(a), op(1, p)] ; if op(2, p) > 1 then a := [op(a), op(2, p)] ; fi; od: od: a ; end: L := pflat(300) ; for n from 1 to nops(L)-2 by 2 do printf("%d, ", op(n, L) mod op(n+1, L) ) ; end do: [From R. J. Mathar, Apr 29 2010] CROSSREFS Cf. A136734, A136735, A143653. Sequence in context: A182703 A197119 A124377 * A177802 A022827 A091889 Adjacent sequences:  A144187 A144188 A144189 * A144191 A144192 A144193 KEYWORD nonn AUTHOR Juri-Stepan Gerasimov, Nov 20 2008 EXTENSIONS a(10), a(43) and perhaps others corrected by R. J. Mathar, Apr 29 2010 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .