login
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
OFFSET
1,2
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: # R. J. Mathar, Apr 29 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(10), a(43) and perhaps others corrected by R. J. Mathar, Apr 29 2010
STATUS
approved