The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A061944

Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 15 (most significant digit on right).
(history; published version)

#19 by Michel Marcus at Sat Dec 05 10:41:08 EST 2020

STATUS

reviewed

approved

#18 by Joerg Arndt at Sat Dec 05 06:36:50 EST 2020

STATUS

proposed

reviewed

#17 by Michel Marcus at Sat Dec 05 05:25:53 EST 2020

STATUS

editing

proposed

#16 by Michel Marcus at Sat Dec 05 05:25:48 EST 2020

EXTENSIONS

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002; Aug 25, 2002

STATUS

proposed

editing

#15 by Jinyuan Wang at Sat Dec 05 05:07:49 EST 2020

STATUS

editing

proposed

#14 by Jinyuan Wang at Sat Dec 05 05:07:44 EST 2020

COMMENTS

No more terms < 10^7. [- _Lars Blomberg, _, Oct 22 2011]

PROG

(PARI) lista(nn, m=15) = my(s, t); for(k=1, nn, s=k/m^valuation(k, m); while(s, t=t*m+s%m; s\=m); if(t%k==0, print1(k, ", "))); \\ Jinyuan Wang, Dec 05 2020

STATUS

approved

editing

#13 by Alois P. Heinz at Sun Mar 08 16:50:35 EDT 2020

STATUS

proposed

approved

#12 by Robert Price at Sun Mar 08 14:55:45 EDT 2020

STATUS

editing

proposed

#11 by Robert Price at Sun Mar 08 14:55:40 EDT 2020

MATHEMATICA

b = 15; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, IntegerDigits[IntegerReverse[#, b], b]], b], #] &] (* Robert Price, Mar 08 2020 *)

KEYWORD

nonn,base,more

STATUS

approved

editing

#10 by Charles R Greathouse IV at Mon Mar 09 11:38:03 EDT 2015

EXTENSIONS

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12, 2002; Aug 25, 2002

Discussion

Mon Mar 09

11:38

OEIS Server: https://oeis.org/edit/global/2363