A393423 Distinct nonnegative values of A393422, in order of appearance and with offset 0.

0, 1, 5, 3, 14, 12, 6, 4, 30, 28, 22, 20, 10, 2, 55, 53, 47, 45, 37, 35, 29, 27, 23, 21, 15, 13, 91, 89, 83, 81, 73, 71, 65, 63, 59, 57, 51, 49, 41, 39, 33, 31, 9, 7, 19, 17, 11, 140, 138, 132, 130, 122, 120, 114, 112, 108, 106, 100, 98, 90, 88, 82, 80, 72, 70

Offset

0,3

Comments

A permutation of the nonnegative integers.

Links

Rémy Sigrist, Table of n, a(n) for n = 0..9874

Michael De Vlieger, Log log scatterplot of a(n), n = 0..4286, with a color function showing primes in red, proper prime powers in gold, squarefree composites in green, powerful numbers that are not prime powers in purple, and numbers that are neither squarefree nor powerful in blue.

Rémy Sigrist, C++ program.

Index entries for sequences that are permutations of the natural numbers

Example

Sequence A393422 begins: 0, 1, -1, 5, 3, -3, -5, 14, 12, 6, 4, -4, -6, -12, -14, 30.
Present sequence begins: 0, 1,     5, 3,         14, 12, 6, 4,                   30.

Mathematica

Block[{w, c}, c[_] := True; w = {0}; c[0] = False; w~Join~Flatten@ Reap[Do[w = Join[w + n^2, w - n^2]; Map[If[And[# >= 0, c[#]], Sow[#]; c[#] = False] &, w], {n, 7}] ][[-1, 1]] ] (* Michael De Vlieger, Feb 16 2026 *)

Prog

(C++) // See Links section.

Crossrefs

Cf. A393422.

Sequence in context: A367204 A213750 A213774 * A167583 A351951 A329029

Adjacent sequences: A393420 A393421 A393422 * A393424 A393425 A393426

Keyword

nonn

Author

Rémy Sigrist, Feb 14 2026

Status

approved