The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A336986 Numbers that are not Colombian and not Bogotá. 3
 2, 6, 8, 10, 12, 13, 14, 15, 17, 18, 19, 21, 22, 23, 26, 27, 28, 29, 30, 32, 33, 34, 35, 37, 38, 40, 41, 43, 44, 45, 46, 47, 48, 50, 51, 52, 54, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77, 78, 79, 80, 82, 83, 84, 85, 87, 89, 90, 91 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Equivalently, numbers m that are of the form k + sum of digits of k for some k (A176995), but are not of the form q * product of digits of q for any q. As repunits are trivially Bogotá numbers, there are not repunits in the data. A336983, A336984, A336985 and this sequence form a partition of the set of positive integers N*. LINKS Giovanni Resta, Self or Colombian number, Numbers Aplenty. EXAMPLE 13 = 11 + (1+1) is not Colombian and 13 is not of the form q * product of digits of q for any q <= 13, so 13 is not a Bogotá number, hence 13 is a term. 39 = 33 + (3+3) is not Colombian but 39 = 13 * (1*3) is a Bogotá number, hence 39 is not a term. 42 = 21 * (2*1) is a Bogotá number but there does not exist k < 42 such that 42 = k + sum of digits of k, hence 42 is a Colombian number and 42 is not a term. MATHEMATICA m = 100; Intersection[Select[Union[Table[n + Plus @@ IntegerDigits[n], {n, 1, m}]], # <= m &], Complement[Range[m], Select[Union[Table[n * Times @@ IntegerDigits[n], {n, 1, m}]], # <= m &]]] (* Amiram Eldar, Aug 22 2020 *) PROG (PARI) lista(nn) = Vec(setintersect(Set(vector(nn, k, k+sumdigits(k))), setminus([1..nn], Set(vector(nn, k, k*vecprod(digits(k))))))); \\ Michel Marcus, Aug 23 2020 CROSSREFS Cf. A003052 (Colombian), A176995 (not Colombian), A336826 (Bogotá), A336983 (Bogotá and not Colombian), A336984 (Bogotá and Colombian), A336985 (Colombian not Bogotá), this sequence (not Colombian and not Bogotá). Sequence in context: A028772 A325463 A121744 * A198832 A173634 A005795 Adjacent sequences:  A336983 A336984 A336985 * A336987 A336988 A336989 KEYWORD nonn,base AUTHOR Bernard Schott, Aug 22 2020 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 16 04:53 EDT 2021. Contains 343937 sequences. (Running on oeis4.)