OFFSET
1,2
COMMENTS
Sequence contains all positive integers.
a(2p) = p for all prime numbers p.
LINKS
Jennifer Buckley, Table of n, a(n) for n = 1..10000
EXAMPLE
B(1) = 1,2,3,4, 5,6,7,8, 9,10,11,12,13,14,...
B(2) = 1,4,3,2, 5,8,7,6, 9,12,11,10,13,16,...
B(3) = 1,4,8,2, 5,3,7,6,10,12,11, 9,13,16,...
B(4) = 1,4,8,2, 5,3,7,6,10,12,11, 9,13,16,... (No change)
B(5) = 1,4,8,2,12,3,7,6,10, 5,11, 9,13,16,...
MATHEMATICA
max = 66; b[1, j_] := j; b[k_, j_] := b[k, j] = b[k-1, j]; Do[If[PrimeQ[k], b[k, 2j*k-k] = b[k-1, 2j*k]; b[k, 2j*k] = b[k-1, 2j*k-k], b[k, j ]=b[k-1, j]], {k, 2, max}, {j, 1, max}]; a[n_] := b[max, n]; Table[a[n], {n, 1, max}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jennifer Buckley, Apr 25 2024
STATUS
approved