OFFSET
1,2
COMMENTS
This sequence lists the natural numbers k that are divisible by A254296(k).
LINKS
Md Towhidul Islam & Md Shahidul Islam, Number of Partitions of an n-kilogram Stone into Minimum Number of Weights to Weigh All Integral Weights from 1 to n kg(s) on a Two-pan Balance, arXiv:1502.07730 [math.CO], 2015.
EXAMPLE
MATHEMATICA
(* This program is not suitable to compute a large number of terms. *)
okQ[v_] := Module[{s=0}, For[i=1, i <= Length[v], i++, If[v[[i]] > 2s+1, Return[False], s += v[[i]]]]; Return[True]];
b[n_] := b[n] = With[{k = Ceiling[Log[3, 2 n]]}, Select[Reverse /@ IntegerPartitions[n, {k}], okQ] // Length];
Reap[Do[If[Divisible[k, b[k]], Print[k]; Sow[k]], {k, 1, 120}]][[2, 1]] (* Jean-François Alcover, Nov 03 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Md. Towhidul Islam, Mar 01 2015
EXTENSIONS
a(48)-a(64) added by Md. Towhidul Islam, Apr 18 2015
STATUS
approved