OFFSET
1,119
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_]:=Block[{ps, sps}, ps=First/@FactorInteger[n];
sps=Select[ps, MemberQ[{1, 7}, Mod[#, 8]]&];
If[sps==ps&&n!=1, 2^(Length[ps]-1), 0]]; Table[f[n], {n, 120}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Feb 15 2020
STATUS
approved