This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A277595 Numbers k such that k/10^m == 8 mod 10, where 10^m is the greatest power of 10 that divides k. 10
 8, 18, 28, 38, 48, 58, 68, 78, 80, 88, 98, 108, 118, 128, 138, 148, 158, 168, 178, 180, 188, 198, 208, 218, 228, 238, 248, 258, 268, 278, 280, 288, 298, 308, 318, 328, 338, 348, 358, 368, 378, 380, 388, 398, 408, 418, 428, 438, 448, 458, 468, 478, 480, 488 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Positions of 8 in A065881. Numbers having 8 as rightmost nonzero digit in base 10. This is one sequence in a 10-way splitting of the positive integers; the other nine are indicated in the Mathematica program. LINKS Clark Kimberling, Table of n, a(n) for n = 1..10000 MATHEMATICA z = 460; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}] p[b_, d_] := Flatten[Position[a[b], d]] p[10, 1] (* A277588 *) p[10, 2] (* A277589 *) p[10, 3] (* A277590 *) p[10, 4] (* A277591 *) p[10, 5] (* A277592 *) p[10, 6] (* A277593 *) p[10, 7] (* A277594 *) p[10, 8] (* A277595 *) p[10, 9] (* A277596 *) fQ[n_]:=Module[{sp=Split[IntegerDigits[n]]}, If[MemberQ[sp[[-1]], 0], sp = Drop[ sp, -1]]; MemberQ[sp[[-1]], 8]]; Select[Range[500], fQ] (* Harvey P. Dale, Sep 14 2018 *) PROG (PARI) is(n)=n && n/10^valuation(n, 10)%10==6 \\ Charles R Greathouse IV, Jan 31 2017 CROSSREFS Cf. A277588-A277594, A277596. Sequence in context: A011538 A283611 A043521 * A017365 A084394 A085248 Adjacent sequences:  A277592 A277593 A277594 * A277596 A277597 A277598 KEYWORD nonn,easy,base AUTHOR Clark Kimberling, Nov 07 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.

Last modified April 23 09:35 EDT 2019. Contains 322385 sequences. (Running on oeis4.)