The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A061945

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

#20 by Michel Marcus at Sat Dec 05 10:40:59 EST 2020

STATUS

reviewed

approved

#19 by Joerg Arndt at Sat Dec 05 06:36:45 EST 2020

STATUS

proposed

reviewed

#18 by Michel Marcus at Sat Dec 05 05:27:06 EST 2020

STATUS

editing

proposed

#17 by Michel Marcus at Sat Dec 05 05:27:02 EST 2020

EXTENSIONS

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

STATUS

proposed

editing

#16 by Jinyuan Wang at Sat Dec 05 05:05:27 EST 2020

STATUS

editing

proposed

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

PROG

(PARI) lista(nn, m=1716) = 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

#14 by Jinyuan Wang at Sat Dec 05 05:03:17 EST 2020

COMMENTS

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

PROG

(PARI) lista(nn, m=17) = 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:44 EDT 2020

STATUS

proposed

approved

#12 by Robert Price at Sun Mar 08 14:56:51 EDT 2020

STATUS

editing

proposed

#11 by Robert Price at Sun Mar 08 14:56:48 EDT 2020

MATHEMATICA

b = 16; 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