login
A359144
Indices k such that A359142(k) is negative.
2
109, 1009, 1018, 1019, 1027, 1028, 1029, 1036, 1037, 1038, 1039, 1045, 1046, 1047, 1048, 1049, 1054, 1055, 1056, 1057, 1058, 1059, 1063, 1064, 1065, 1066, 1067, 1068, 1069, 1072, 1073, 1074, 1075, 1076, 1077, 1078, 1079, 1081, 1082, 1083, 1084, 1085, 1086, 1087
OFFSET
1,1
LINKS
MATHEMATICA
A359144Q[n_]:=Module[{d=IntegerDigits[n], s, u}, If[MemberQ[s=IntegerDigits[Total[d]], First[u=Join[d, s]]], u=DeleteCases[u, First[u]]]; FromDigits[u]>0&&First[u]==0]; Select[Range[2000], A359144Q] (* Paolo Xausa, Oct 11 2023 *)
CROSSREFS
Cf. A359142.
Sequence in context: A301743 A178263 A061699 * A239720 A096214 A173665
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, based on a comment from M. F. Hasler which was formerly in A359142, Feb 01 2023
EXTENSIONS
a(9) and beyond from Michael S. Branicky, Feb 01 2023
STATUS
approved