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,1

Links

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

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

Adjacent sequences: A359141 A359142 A359143 * A359145 A359146 A359147

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