cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A359144 #18 Oct 11 2023 08:42:14
%S A359144 109,1009,1018,1019,1027,1028,1029,1036,1037,1038,1039,1045,1046,1047,
%T A359144 1048,1049,1054,1055,1056,1057,1058,1059,1063,1064,1065,1066,1067,
%U A359144 1068,1069,1072,1073,1074,1075,1076,1077,1078,1079,1081,1082,1083,1084,1085,1086,1087
%N A359144 Indices k such that A359142(k) is negative.
%H A359144 Michael S. Branicky, <a href="/A359144/b359144.txt">Table of n, a(n) for n = 1..10000</a>
%t A359144 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 *)
%Y A359144 Cf. A359142.
%K A359144 nonn,base
%O A359144 1,1
%A A359144 _N. J. A. Sloane_, based on a comment from _M. F. Hasler_ which was formerly in A359142, Feb 01 2023
%E A359144 a(9) and beyond from _Michael S. Branicky_, Feb 01 2023