A359144 Indices k such that A359142(k) is negative.

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

Author

N. J. A. Sloane, based on a comment from M. F. Hasler which was formerly in A359142, Feb 01 2023

Keywords

• nonn
• base

Links

• Michael S. Branicky, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A359142.

Programs

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 *)

Extensions

a(9) and beyond from Michael S. Branicky, Feb 01 2023