OFFSET
1,3
MATHEMATICA
c = 2; d = 4; t[i_, j_] := c^i - d^j;
u = Table[t[i, j], {i, 0, 40}, {j, 0, i*Log[d, c]}];
v = Union[Flatten[u ]]
CROSSREFS
Cf. A192113.
The definitions of all 50 sequences starting with this one now state explicitly that it is assumed that i <= 40. This refers to A192112 A192113 A192114 A192115 A192116 A192117 A192118 A192119 A192120 A192121 A192122 A192123 A192124 A192125 A192147 A192148 A192149 A192150 A192151 A192152 A192153 A192154 A192155 A192156 A192157 A192158 A192159 A192160 A192161 A192162 A192163 A192164 A192165 A192166 A192167 A192168 A192169 A192170 A192171 A192172 A192193 A192194 A192195 A192196 A192197 A192198 A192199 A192200 A192201 A192202. - N. J. A. Sloane, Oct 21 2019
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 23 2011
STATUS
approved