|
|
A044572
|
|
Numbers n such that string 0,4 occurs in the base 8 representation of n but not of n+1.
|
|
1
|
|
|
68, 132, 196, 260, 324, 388, 452, 516, 551, 580, 644, 708, 772, 836, 900, 964, 1028, 1063, 1092, 1156, 1220, 1284, 1348, 1412, 1476, 1540, 1575, 1604, 1668, 1732, 1796, 1860, 1924, 1988, 2052, 2087, 2116, 2180, 2244, 2308
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {0, 4}]>0, 1, 0], {n, 2400}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10.1 *) (* Harvey P. Dale, Apr 05 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|