OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
{1} union {numbers of form 2^(2u+1)} union {numbers of form 4^(u+1)*3^(2v+1)} u, v>=0. - Benoit Cloitre, Aug 31 2004
MATHEMATICA
f[p_, e_] := (p^e - p^(e - 1)) * p^Mod[e, 2]; aQ[1] = True; aQ[n_] := Times @@ (f @@@ FactorInteger[n]) == n; Select[Range[10000], aQ] (* Amiram Eldar, Aug 05 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 14 2002
EXTENSIONS
More terms from Amiram Eldar, Aug 05 2019
STATUS
approved