The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A364190

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A364190

The sum of the digits present in a(n) and a(n+1) divides the product [a(n)*a(n+1)]. This is the lexicographically earliest sequence of distinct positive terms with this property.
(history; published version)

#18 by Michael De Vlieger at Wed Dec 20 08:04:28 EST 2023

STATUS

reviewed

approved

#17 by Stefano Spezia at Wed Dec 20 02:38:52 EST 2023

STATUS

proposed

reviewed

#16 by Michel Marcus at Wed Dec 20 02:23:37 EST 2023

STATUS

editing

proposed

#15 by Michel Marcus at Wed Dec 20 02:23:34 EST 2023

LINKS

Eric Angelini, <a href="http://cinquantesignes.blogspot.com/2023/07/supersums-superproducts.html">SuperSums, SuperProducts</a> , personal blog.

CROSSREFS

Cf. A007953, A364120, A364187, A364188.

STATUS

approved

editing

#14 by N. J. A. Sloane at Wed Aug 02 11:54:39 EDT 2023

STATUS

proposed

approved

#13 by Michel Marcus at Fri Jul 14 09:57:14 EDT 2023

STATUS

editing

proposed

Discussion

Fri Jul 14

09:58

Michel Marcus: click on #13 and see

10:20

Eric Angelini: Done -- many thanks Michel!

#12 by Michel Marcus at Fri Jul 14 09:56:33 EDT 2023

DATA

1, 10, 4, 15, 3, 6, 12, 9, 11, 14, 2, 20, 8, 26, 5, 32, 21, 13, 18, 16, 7, 22, 25, 30, 24, 28, 31, 40, 33, 23, 50, 41, 95, 44, 38, 17, 27, 19, 34, 37, 66, 42, 35, 48, 39, 60, 36, 45, 51, 29, 78, 47, 138, 55, 64, 105, 52, 57, 43, 70, 58, 46, 49, 75, 63, 54, 72, 65, 96, 81, 84, 79

STATUS

proposed

editing

Discussion

Fri Jul 14

09:57

Michel Marcus: you removed too many terms: 3 lines 1/2 here will give 3 lines when published

#11 by Giorgos Kalogeropoulos at Fri Jul 14 09:53:36 EDT 2023

STATUS

editing

proposed

#10 by Giorgos Kalogeropoulos at Fri Jul 14 09:53:24 EDT 2023

MATHEMATICA

a[1]=1; a[n_]:=a[n]=(k=1; While[MemberQ[Array[a, n-1], k]||Mod[a[n-1]*k, Total[Join[IntegerDigits@a[n-1], IntegerDigits@k]]]!=0, k++]; k)

Array[a, 60] (* Giorgos Kalogeropoulos, Jul 14 2023 *)

STATUS

proposed

editing

#9 by Eric Angelini at Fri Jul 14 09:23:36 EDT 2023

STATUS

editing

proposed