OFFSET
1,1
COMMENTS
See comments in A270434.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..17000
FORMULA
Other identities. For all n >= 1:
A270433(a(n)) = n.
MATHEMATICA
f[n_] := (Times @@ Power[If[# == 1, 1, NextPrime@ #] & /@ First@ #, Last@ #] + 1)/2 &@ Transpose@ FactorInteger@ n; g[n_] := Times @@ Power[If[# == 1, 1, NextPrime[#, -1]] & /@ First@ #, Last@ #] &@ Transpose@ FactorInteger[2 n - 1]; Select[Range@ 162, Xor[EvenQ@ f@ #, EvenQ@ g@ #] &] (* Michael De Vlieger, Mar 17 2016 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 17 2016
STATUS
approved