A062920 Numbers k that, when expressed in base 4 and then interpreted in base 5, give a multiple of k.

0, 1, 2, 3, 1060, 2137, 3197, 3214, 3217, 3337, 313259, 313406, 730473, 2304689, 2416087, 3579260, 28850251, 31289731, 132716102, 206771980, 530864408, 616417140, 621776006, 1553684761, 2123457632, 2232402380, 5264756497, 8929609520, 22137774186, 2543308829640

Offset

1,3

Links

Table of n, a(n) for n=1..30.

Example

3 in base 4 is 3, which interpreted in base 5 is 3 = 1*3.

Mathematica

Join[{0}, Select[Range[5000000], Divisible[FromDigits[IntegerDigits[#, 4], 5], #]&]] (* Harvey P. Dale, Dec 10 2012 *)

Prog

(PARI) baseE(x, b)= { local(d, e, f); e=0; f=1; while (x>0, d=x-b*(x\b); x\=b; e+=d*f; f=f*10); return(e) } baseI(x, b)= { local(d, e, f); e=0; f=1; while (x>0, d=x-10*(x\10); x\=10; e+=d*f; f=f*b); return(e) } { n=-1; for (m=0, 10^9, x=baseI(baseE(m, 4), 5); if (x%m == 0, write("b062920.txt", n++, " ", m); if (n==15, break)) ) } \\ Harry J. Smith, Aug 13 2009

Crossrefs

Cf. A062921, A062922, A062923, A032540.

Sequence in context: A352537 A136611 A004898 * A228127 A327660 A036111

Adjacent sequences: A062917 A062918 A062919 * A062921 A062922 A062923

Keyword

base,nonn

Author

Erich Friedman, Jul 21 2001

Extensions

More terms from Naohiro Nomoto, Aug 06 2001

Offset corrected by and a(17)-a(30) from Giovanni Resta, Jun 28 2018

Status

approved