login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A278440 Numbers n such that A244112(n) | n. 4
22, 777, 4444, 68868, 200000, 303030, 333000, 333333, 555555, 660000, 660660, 666666, 700000, 2332200, 3131313, 4444400, 6060600, 7007000, 7700000, 9009790, 9656955, 9885585, 11517771, 14233221, 14331231, 14333110, 14411040, 15143331, 15233221, 15331231, 15333110 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

A244112(68868) = 3826 and 68868 / 3826 = 18.

LINKS

Paolo P. Lava, Table of n, a(n) for n = 1..200

MAPLE

with(numtheory): P:=proc(q) local a, b, c, d, j, k, n; for n from 1 to q do a:=sort(convert(n, base, 10));

for k from 1 to trunc(nops(a)/2) do c:=a[k]; a[k]:=a[nops(a)-k+1]; a[nops(a)-k+1]:=c; od;  k:=1; b:=a[1]; c:=0;

for j from 2 to nops(a) do if a[j]=b then k:=k+1; else d:=10*k+b; c:=c*10^(ilog10(d)+1)+d; k:=1; b:=a[j]; fi; od;

d:=10*k+b; c:=c*10^(ilog10(d)+1)+d; if type(n/c, integer) then print(n); fi; od; end: P(10^99);

MATHEMATICA

Select[Range[10^6], Divisible[#, FromDigits@ Flatten@ Map[IntegerDigits, DeleteCases[#, k_ /; First@ k == 0]] &@ Reverse@ MapIndexed[{#1, (First@ #2 - 1)} &, RotateRight@ DigitCount@ #]] &] (* Michael De Vlieger, Dec 12 2016 *)

CROSSREFS

Cf. A237605, A244112, A278439, A278441.

Sequence in context: A067768 A181181 A160037 * A152957 A237605 A231159

Adjacent sequences:  A278437 A278438 A278439 * A278441 A278442 A278443

KEYWORD

nonn,easy,base

AUTHOR

Paolo P. Lava, Nov 25 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 26 02:14 EDT 2021. Contains 348256 sequences. (Running on oeis4.)