A327750 -id:A327750 - cp's OEIS frontend

A340907 Numbers m without zero digits such that pod(q) = pod(k) = pod(m) where q = k + pod(k) and k = m + pod(m) where pod is the product of digits, A007954.

262713, 267338, 283628, 342713, 351678, 432713, 451676, 516469, 516657, 516675, 622713, 634838, 651674, 716655, 728364, 851673, 857297, 916465, 1262713, 1267338, 1283628, 1342713, 1351678, 1432713, 1451676, 1516469, 1516657, 1516675, 1622713, 1634838, 1651674

Offset: 1

Bernard Schott, Jan 26 2021

The idea of this sequence comes from a remark of Amiram Eldar in Discussion section of A327750 (m + pod(m) = k with pod(k) = pod(m)) in September 2019.
Question: is it possible to get a longer string of integers with this rule?
From David A. Corneth, Feb 01 2021: (Start)
The product of digits of a(n) is a multiple of 6. In terms below 10^10 however all products of digits of a(n) are a multiple of 36. Is that product a multiple of 36 for all a(n)?
The least term k such that k + 6 is here is k = 56516718. Are there consecutive terms that differ by less than 6? (End)

			262713 + pod(262713) = 262713 + 504 = 263217, whose product of digits is also 504, and 263217 + 504 = 263721 whose product of digits is again 504; hence, m=262713, k=263217, q=263721 and pod(m)=pod(k)=pod(q)=504, so 262713 is a term.

Roman Fedorov, Alexei Belov, Alexander Kovaldzhi, and Ivan Yashchenko, Moscow-Mathematical Olympiads, 2000-2005, Level A, Problem 2, 2003; MSRI, 2011, p. 15 and 97.

David A. Corneth, Table of n, a(n) for n = 1..10000

Subsequence of A327750.

Cf. A007954, A052382, A247888, A340908.

pod[n_] := Times @@ IntegerDigits[n]; seqQ[n_] := Module[{p = pod[n], k, q}, k = n + p; q = k + pod[k]; p > 0 && Equal @@ {p, pod[k], pod[q]}]; Select[Range[2*10^6], seqQ] (* Amiram Eldar, Jan 26 2021 *)

isok(m) = my(pm=vecprod(digits(m)), k=m+pm, pk=vecprod(digits(k)), q=k+pk, pq=vecprod(digits(q))); pm && (pm==pk) && (pk==pq); \\ Michel Marcus, Jan 26 2021

Terms from Amiram Eldar, Jan 26 2021

A340908 Primitive numbers m without zero digits such that pod(m + pod(m)) = pod(m) where pod is the product of digits, A007954.

Original entry on oeis.org

28, 214, 239, 266, 318, 326, 364, 494, 497, 563, 598, 613, 637, 695, 819, 2114, 2139, 2168, 2285, 2313, 2356, 2369, 2419, 2594, 2639, 2791, 3118, 3126, 3148, 3213, 3235, 3238, 3259, 3354, 3365, 3561, 3698, 3786, 4138, 4145, 4188, 4219, 4338, 4346, 4353, 4368, 4395

Offset: 1

Bernard Schott, Jan 31 2021

When a number k belongs to A327750, the integer 111..11//k obtained by concatenation of 111..11 and k is another term; hence, there exist primitive terms as 28, 214, 239, ... that are listed in this sequence.

Equivalently, terms of A327750 that do not begin with 1.

			pod(28 + pod(28)) = pod(28 + 2*8) = pod(28 + 16) = pod(44) = 4*4 = 16 = pod(28), hence 28 that does not begin with 1 is a term.

Roman Fedorov, Alexei Belov, Alexander Kovaldzhi, and Ivan Yashchenko, Moscow-Mathematical Olympiads, 2000-2005, Level A, Problem 2, 2003; MSRI, 2011, pp. 15 and 97.

Index to sequences related to Olympiads.

Cf. A007954, A247888, A340907.

Subsequence of A327750.

pod[n_] := Times @@ IntegerDigits[n]; q[n_] := First[IntegerDigits[n]] > 1 && (p = pod[n]) > 0 && pod[n + p] == p; Select[Range[5000], q] (* Amiram Eldar, Jan 31 2021 *)

isok(n) = my(d = digits(n), p); vecmin(d) && ((d[1]!=1) && p=vecprod(d)) && (vecprod(digits(n+p)) == p); \\ Michel Marcus, Feb 01 2021

cp's OEIS Frontend

A340907 Numbers m without zero digits such that pod(q) = pod(k) = pod(m) where q = k + pod(k) and k = m + pod(m) where pod is the product of digits, A007954.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Extensions